Print Sheets Individually

[Gregory72]

I get this error:

Run-time error '1004':
Method 'PrintOut' of object '_Worksheet' failed



When I run this code:

Dim printSheet As Worksheet
For Each printSheet In ActiveWorkbook.Sheets
printSheet.PrintOut
Next printSheet




And it is driving me crazy. All I want to do is print each sheet individually.

Does anyone know possible reason for why it isn't working?

 

[VoG]

Are any of the sheets hidden?

 

[Gregory72]

There are hidden sheets in the workbook, but I'm only wanting to print the sheets that are visible.

 

[VoG]

Try

Dim printSheet As Worksheet
For Each printSheet In ActiveWorkbook.Sheets
    If printSheet.Visible = xlSheetVisible Then printSheet.PrintOut
Next printSheet

 

[Gregory72]

Thanks VoG,
It works fine now. Originally, I used an If statement to filter through the visible sheets before the For loop to print all of the sheets. I thought that the .PrintOut function would have just assumed to print the visible sheets similar to how the ActiveWorkbook.PrintOut makes this assumption. It doesn't, apparently.
Thanks again!