Results 1 to 2 of 2
  1. #1
    5 Star Lounger
    Join Date
    Oct 2001
    Location
    San Bernardino, California, USA
    Posts
    734
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Printing odd/even pages? (Excel 97)

    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

  2. #2
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Printing odd/even pages? (Excel 97)

    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. <img src=/S/grin.gif border=0 alt=grin width=15 height=15>
    <pre>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</pre>

    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

Posting Permissions

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