You can view the page at http://www.excelguru.ca/forums/conte...efore-Printing
Ken Puls, FCPA, FCMA, MS MVP (Excel)
Master your data with Power Query: Purchase your copy of my book M is for Data Monkey today!
Main Site: http://www.excelguru.ca -||- Blog: http://www.excelguru.ca/blog -||- Forums: http://www.excelguru.ca/forums
Check out the Excelguru Facebook Fan Page -||- Follow Me on Twitter
If you've been given VBA code (a macro) for your solution, but don't know where to put it, CLICK HERE.
Instead of toggling, won't this work:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[rngPrintMode] = "True"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
[rngPrintMode] = "False"
Cancel = True