GS laid this down on his screen :
I suspect you also want to unhide all the columns after printing and so to do
so insert the following line before ending 'PrintMyCols'...

PrintRange.EntireColumn.Hidden = False

Revised code to scroll the window...
'...
PrintRange.EntireColumn.Hidden = False
With ActiveWindow
.ScrollColumn = 1: .ScrollRow = 1
End With
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc