Results 1 to 2 of 2
  1. #1
    Bronze Lounger
    Join Date
    Jan 2001
    Posts
    1,418
    Thanks
    1
    Thanked 0 Times in 0 Posts

    printing worksheets (2000)

    I have a worksheet that is made up of 3 pages. I would like to print the first page in landscape mode, the second in portrait, and the third in landscape. Any help (without converting the three pages to three separate worksheets)?

  2. #2
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Dallas plus 20 miles or so, Texas, USA
    Posts
    876
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: printing worksheets (2000)

    Something along these lines should work:

    <pre>Private Sub PAlternate()
    With ActiveSheet.PageSetup
    .Orientation = xlLandscape
    Range("A1:d1").PrintOut
    .Orientation = xlPortrait
    Range("b1:d1").PrintOut
    .Orientation = xlLandscape
    Range("c11").PrintOut
    End With
    End Sub
    </pre>

    Although you will have to change your ranges to whatever you need.

Posting Permissions

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