MS Excel Muliple Double Sided Copies Page Numbering

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • MyWaterloo
    New Member
    • Dec 2007
    • 135

    MS Excel Muliple Double Sided Copies Page Numbering

    He All,

    I am not sure where to post this topic so I am sticking with the area I know and posting in Access/VBA. Sorry if this is a no no.

    I am using code to print multiple copies of the same worksheet with consecutive page numbering.

    Code:
    Sub MultiPrint()
    Dim PrintCount As Integer
    For PrintCount = 2 To 49
    ActiveSheet.PageSetup.RightFooter = "Page " & PrintCount
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next
    End Sub
    This works great... Except I need my pages to be double sided and my printer only prints single sided and then you manually flip the paper and it prints on the other side. I was thinking if there was some way to print only odd and then only even numbers. I could then do a run through of 50 pages with only odd numbers, and then flip the pages and put them back in the printer, and print 50 pages of only even numbers. Anyway to implement this or a better solution?

    Any help as always is very much appreciated... Thanks.
  • Anas Mosaad
    New Member
    • Jan 2013
    • 185

    #2
    To work with even and odd pages, you may use Step 2 in the for loop. Line 3 would look something like this:
    For even pages:
    Code:
    For PrintCount = 2 To 48 [B]Step 2[/B]
    For odd pages:
    Code:
    For PrintCount = 1 To 49 [B]Step 2[/B]

    Comment

    • MyWaterloo
      New Member
      • Dec 2007
      • 135

      #3
      Thank you so much! This worked great!

      Comment

      • Anas Mosaad
        New Member
        • Jan 2013
        • 185

        #4
        You are welcome. I glad that it worked! :D

        Comment

        Working...