Sunday 18 September 2016

How to print Excel pages in Even and Odd like Doc 2016




copy & paste the code:
Sub Odd_Even_Print_Reverse()
Dim StartPage As Long
Dim EndPage As Long
Dim Page As Integer


EndPage = InputBox("Enter the last page number")

StartPage = 1
For Page = EndPage To StartPage Step -2
ActiveSheet.PrintOut from:=Page, To:=Page, _
Copies:=1, Collate:=True
Next

End Sub