'\\ in a Standard Module
Global g_blnCustomPrint As Boolean
Sub PrintTest() ' \\ Button Code
g_blnCustomPrint = True
'\\ do your printing stuff here...
Sheet1.PrintOut
g_blnCustomPrint = False
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not g_blnCustomPrint Then Cancel = True
End Sub