Set Print Area

[Noz2k]

Just a quick question I think

I currently use

 Application.Dialogs(xlDialogPrint).Show

to bring up the print dialog box.

However what I would like to do, is automatically set the print area to for example Page 1 & 4

How do I reference the page numbers, so that's all that would be printed?

 

[sadath]

use this

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4

 

[Noz2k]

Thanks,

I just figured I could use

'ActiveSheet.PageSetup.PrintArea = "A1:U54"
'Application.Dialogs(xlDialogPrint).Show

as the pages are next to each other, and I don't want it to automatically print.

However for future reference that will come in very handy, so thank you

 

[Noz2k]

Quick question though,

I tried your method, which worked fine. However I now have a dashed line like - - - - all the way around the 2 pages. How do I get rid of this?