Hi,
I used the macro recorder to set the print up on a 17 sheet workbook as below. Problem is after it prints the sheets it debugs 'printout method of worksheet class failed'. Any ideas what I need to fix? Also I have named the first sheet 'SUMMARY' and would like this to 'page fit' on portrait - but include this in the same routine.
Sub checkprintsettings()
Application.ScreenUpdating = False
For Each sht In Worksheets
sht.Activate
With ActiveSheet.PageSetup
.PrintGridlines = True
.Orientation = xlLandscape
.Zoom = 87
ActiveSheet.PrintOut copies:=1, Collate:=True
End With
Next sht
End Sub
Many thanks
Jon