W
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
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