Setting Print Margins,Zoom for all tabs


Posted by Nathan on October 31, 2001 7:08 AM

Does anyone know how to set printer margins and zoom for one sheet and have it carry for all sheets when all tabs are already in place?? I usually print preview the entire workbook at once and have to hand set each page's setting..
The other way is that I record a macro for setting the print settings for one tab and play it back for each tab, however many people are intimidated by this method. is there another way.

When selecting all tabs and going to print preview, it still only affects the one page at a time

Thoughts?

Thanks.



Posted by Jackie Milburn on October 31, 2001 11:19 AM

What about a Workbook_BeforePrint procedure :-

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.CenterHorizontally = True 'Or whatever
End With
End Sub