Honoring page setup of each worksheet

[Walt Herman]

Hello all and thanks in advance for your help. I have some code which will
print out every "visible" worksheet within the workbook. My issue is that
eash sheet has unique print set up properties which are ignored when my code
runs. I would like to avail myself of the features of the code below while
augmenting it with assuming the print properties already uniquely associated
with each page. Thanks again!

Dim sht
Application.ScreenUpdating = False
For Each sht In Sheets
If sht.Visible Then sht.Select Replace:=False
Next
ActiveWindow.SelectedSheets.PrintOut copies:=1
ActiveSheet.Select
Application.ScreenUpdating = True

 

[Robert Crandal]

I have an idea that might work... before I given an answer,
can you please describe a few of these "unique print set up
properties"??? I just want an example of which print
properties you have for some of your sheets.

thankx.

 

[Robert Crandal]

I have an idea that might work... before I given an answer,
can you please describe a few of these "unique print set up
properties"??? I just want an example of which print
properties you have for some of your sheets.

thankx.