Printing odd/even pages? (Excel 97)

Topic

New Reply

How can I print odd or even pages in Excel? Word offers this feature in the print setup but not Excel.. at least, not that I can find. I would even settle for the ability to manually type in multiple odd/even pages to print… 1,3,5,7.. etc.

Thanks

Reply | Quote

Replies

Here’s a macro to print the odd pages. If you place it in the Personal Macro workbook, it will be available to all of your workbooks. Note, depending on your printer, you may want to print them in reverse order. I’ll leave the even-page macro as an exercise to the reader.

Option Explicit
Sub printOdd()
  Dim I As Long
  Dim lngPages As Long
  lngPages = ExecuteExcel4Macro("Get.Document(50)")
  For I = 1 To lngPages Step 2
    ActiveSheet.PrintOut From:=I, To:=I
  Next
End Sub

Reply | Quote