Create a button on your toolbar, and assign this macro to it:
Sub PrintPageSetup()
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.0)
.RightMargin = Application.InchesToPoints(0.0)
.TopMargin = Application.InchesToPoints(0.0)
.BottomMargin = Application.InchesToPoints(0.0)
.HeaderMargin = Application.InchesToPoints(0.0)
.FooterMargin = Application.InchesToPoints(0.0)
End With
End Sub
Making sure the sheet(s) you want to set the margins to zero ar
active, click the button.
hth
Bruc