Try:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
**
**Cancel = True
**Application.EnableEvents = False
****ActiveSheet.Columns(1).Hidden = True
****ActiveSheet.PrintOut
****ActiveSheet.Columns(1).Hidden = False
**Application.EnableEvents = True
**
End Sub
Specify the columns you want hidden where I have the Columns(1) line. Put this in the ThisWorkbook module of the VBE (ALT+F11). Let me know if you have problems.


LinkBack URL
About LinkBacks



Reply With Quote

Bookmarks