Private Sub Workbook_BeforePrint(Cancel As Boolean)
**Cancel = True
**Application.EnableEvents = False
****ActiveSheet.Columns(1).Hidden = True
****ActiveSheet.Columns(1).Hidden = False
**Application.EnableEvents = True
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.