I am using the below section of code to prompt the user for a printer, but i
have 1 page to print out in 1 sheet, then a couple of pages to print out in
another sheet.
How can i set all pages to PrintOut instead of using the
ActiveSheet.PrintOut?

If i select a PDFPrinter, i get 2 pdf files because i added the 2nd sheet to
be printed, so i want something like:
Sheet1.Range("A1:P30").Select & sheet2.Range("A1:P60").Select
Activecells.PrintOut ?



Dim bOK As String
bOK = Application.Dialogs(xlDialogPrinterSetup).Show 'choose the
printer
If bOK = False Then Exit Sub
If bOK = True Then
On Error Resume Next
ActiveSheet.PrintOut


Corey....