Honoring page setup of each worksheet
 

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

Honoring page setup of each worksheet
 

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.


"Walt Herman" wrote in message
...
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

Honoring page setup of each worksheet
 

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.


"Walt Herman" wrote in message
...
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