Results 1 to 3 of 3
  1. #1
    BakerMan
    Guest

    Printing Macro Help Needed (2000)

    Hello, I recorded the following macro:
    Sub PrintSheet()
    Sheets(Array("Sheet1", "Sheet 4", "Sheet6", "Sheet7", "Sheet8 ", "Sheet9", "Sheet10", _
    "Sheet12", "Sheet13")).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Sheet1").Select
    End Sub

    This macro prints the sheets fine but not in the correct order, they are mixed. I need the print out to be in the order above but they print out:
    Sheet 1,8,7,6,4,9,13,12,10 any help would be greatly appreciated

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Printing Macro Help Needed (2000)

    Does this work the way you want?

    Sub PrintSheet()
    Sheets(Array("Sheet1", "Sheet 4", "Sheet6", "Sheet7", "Sheet8 ", _
    "Sheet9", "Sheet10", "Sheet12", "Sheet13")).PrintOut
    End Sub

    If not, you'll have to print each sheet separately:

    Sub PrintSheet()
    Sheets("Sheet1").PrintOut
    Sheets("Sheet4").PrintOut
    Sheets("Sheet6").PrintOut
    Sheets("Sheet7").PrintOut
    Sheets("Sheet8").PrintOut
    Sheets("Sheet9").PrintOut
    Sheets("Sheet10").PrintOut
    Sheets("Sheet12").PrintOut
    Sheets("Sheet13").PrintOut
    End Sub

  3. #3
    BakerMan
    Guest

    Re: Printing Macro Help Needed (2000)

    I had to print them one at a time as you said-thanks HANS

Posting Permissions

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