Macro to print various pages

[io1922]

Good evening!

I have a wb that does its thing and then tells the user to print (for instance) page 1-6 and page 17. The first set of pages are always consecutive and the last page is always not consecutive with the first set of pages and is always a single page.

I have the page numbers calculated and stored in 3 cells:
Page 1 - always
Page x - last page in consecutive series
Page z - final "dangling" page

Can I get these 3 page numbers into a macro that will automatically print without user intervention?

All the pages are printed from the same worksheet, if that matters.

Thanks, and great board.

 

[SIXTH SENSE]

hi!
try this one.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> PrintingPagesx()
Frm = Range("A1").Value
ToEnd = Range("b1").Value
    ActiveWindow.SelectedSheets.PrintOut From:=Frm, To:=ToEnd, Copies:=1, Collate _
        :=<SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

this prints the pages from specified page to specified end page. for one page print, frm and toend should be eqaul.