Event After Printing

[Tom Atkisson]

I have a Workbook that uses the Workbook_BeforePrint sub in ThisWorkbook to
hide some columns. Is there a way to unhide those columns after printing?
Doesn't seem to be a AfterPrint procedure.

Thanks in advance.

 

[Ron de Bruin]

Use this Tom

Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo ErrorHandler
Cancel = True
Application.EnableEvents = False
With Sheet1 'or whichever sheet is to be printed
.Rows("8:12").EntireRow.Hidden = True
.PrintOut
.Rows("8:12").EntireRow.Hidden = False
End With
ErrorHandler:
Application.EnableEvents = True
End Sub

 

[Jim Cone]

Hello Again,

Rob Bruce has a clever trick to accomplish this at:

http://www.rb-ad.dircon.co.uk/rob/excelvba/tips/index.htm

Regards,

Jim Cone
San Francisco, CA
(e-mail address removed)
**********************