Hide Column When Printing

[alpine4133]

I need to print a area but hide some column each time I print. I get an error message with this. Can someone help me fix this macro?

I want to Hide column K &L, and then unhide after I print.


Sub print_route()
.Columns("K:L").EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
.Columns("K:L").EntireColumn.Hidden = False
End Sub

 

[Warship]

Try removing the dots in front of each "Columns".

 

[Yahya]

Try this

Sub print_route()
Sheets("sheet1").Columns("K:L").EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("sheet1").Columns("K:L").EntireColumn.Hidden = False
End Sub

 

[alpine4133]

This one seems to be working... Thank you

Sub print_route()
ActiveSheet.Columns("K:L").EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Columns("K:L").EntireColumn.Hidden = False
End Sub