Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Triggering a macro after Printing
This should be close...
Private Sub Workbook_BeforePrint(Cancel As Boolean) On Error GoTo ErrorHandler Application.EnableEvents = False Cancel = True Sheets("January").Select If Cells(7, 1) = 0 Then Rows("7:7").EntireRow.Hidden = True End If ActiveSheet.PrintOut DoStuff ErrorHandler: Application.EnableEvents = True End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) DoStuff End Sub Private Sub DoStuff() Sheets(Array("January", "February", "March", "April", _ "May", "June", "July", "August", "September", _ "October", "November", "December", "Summary")).Select Cells.Select Selection.EntireRow.Hidden = False Sheets("January").Select Cells(1, 1).Select End Sub -- HTH... Jim Thomlinson "Sloth" wrote: Below is some code I am working on. Basically it looks at specific cell A7. If it is equal to zero then that row gets hidden when printing. I want all rows to unhide after printing. How do I trigger this? The section under Before_Save is what I would like to do after printing. Is there an easier way to do this? Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("January").Select If Cells(7, 1) = 0 Then Rows("7:7").EntireRow.Hidden = True End If End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(Array("January", "February", "March", "April", _ "May", "June", "July", "August", "September", _ "October", "November", "December", "Summary")).Select Cells.Select Selection.EntireRow.Hidden = False Sheets("January").Select Cells(1, 1).Select End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Function triggering a macro | Excel Worksheet Functions | |||
Daily Macro Triggering | Excel Discussion (Misc queries) | |||
Triggering Excel Macro from MS-Project | Excel Programming | |||
Triggering Macro Execution | Excel Programming | |||
Triggering an Excel macro on press of SAVE | Excel Programming |