Power Query Course in Spanish
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 4 of 4

Thread: Print (Zoom)

  1. #1
    Board Regular
    Join Date
    Feb 2002
    Location
    Winnipeg, Manitoba, CANADA
    Posts
    144
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    My code adjusts the zoom (depending on a Portable Printer or Laser) but the width gets smaller when I decrease the .zoom or my length gets bigger when I increase the .zoom.

    How can I force the length and width to fit when I adjust the zoom.

    This is what I have right now:

    ' Call the function to select the type of printer (Laser/Portable)
    Call PrintSize(intPrintSize)

    Application.ScreenUpdating = False

    Sheets("Print Document").Select
    With Worksheets("Print Document").PageSetup
    .PrintArea = "$A$1:$T$78"
    .Zoom = intPrintSize
    .CenterVertically = False
    .CenterHorizontally = False
    End With
    'ActiveSheet.PrintOut
    ActiveSheet.PrintPreview ' used for testing purposes
    Thanx.

  2. #2
    MrExcel MVP Anne Troy's Avatar
    Join Date
    Feb 2002
    Location
    Westwood NJ
    Posts
    2,582
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    I thought someone ought to reply even though your question is strange--no offense!

    Zoom has nothing to do with the print setup or print output. I don't know why you are changing the zoom at all. I don't know what intPrintSize is either, though...

    Is there some reason you can't just tell it to Fit to?
    ~Anne Troy

  3. #3
    Board Regular
    Join Date
    Feb 2002
    Location
    Winnipeg, Manitoba, CANADA
    Posts
    144
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Thank you for replying...

    With your help I fixed my problem, here's what works.

    Sheets("Print Document").Select

    With Worksheets("Print Document").PageSetup
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
    End With
    ActiveSheet.PrintOut
    Thanx.

  4. #4
    MrExcel MVP Anne Troy's Avatar
    Join Date
    Feb 2002
    Location
    Westwood NJ
    Posts
    2,582
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Actually, I don't think you need the zoom line at all. Why not try commenting it out. If it works, delete it.


    ~Anne Troy

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •