Hide Column & Print page Macro printing blank page?!

Hello Everyone,

I have the below Macro that is activated from a button on the page that i want to print.
What I am trying to do is hide column G then print the page and once printed unhide column
G. The problem that the printed page is blank? I have tried every possible scenario I can
think of! Print selection, print page 1 etc. but nothing seems to work? Any help is much
appreciated....

Below is the code I am using:


Sub HideAndPrint()
Columns("G:G").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Columns("E:H").Select
Selection.EntireColumn.Hidden = False
Range("C2:K3").Select
End Sub


Thank you for any help...

Margate

Nothing is wrong with code... however, you should upload your workbook to rule out any problem.