Print Macro code help
 

Hi

I have recorded a macro to hide certain columns on my sheet, then to print
the sheet and then unhide the columns. The code looks ok, but when it prints
I am only getting 2 columns instead of the whole document. Any help
gratefully received, macro code below. Thanks

Private Sub CommandButton3_Click()
'
' print_mode Macro
' Macro recorded 02/09/2008 by Leigh Douglass'

'
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=1
Columns("M:N").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=3
Columns("P:AF").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-9
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll ToRight:=4
Columns("L:O").Select
Range("O1").Activate
Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll ToRight:=3
Columns("O:AG").Select
Range("AG1").Activate
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub

Print Macro code help
 

hi
i noticed in your recorded macro that you didn't reset the print area.
hiding column(and rows) doesn't reset the print area. you need to add a line
to set this.

ActiveSheet.PageSetup.PrintArea = "$A$1:$AG$40" 'change to suit

also.
recording a macro records all of you mouse and keyboard actions, most of
which are usually not needed. in your macro you have alot of selecting and
scrolling which is not needed and could be reduced to.....

Columns("B:B").EntireColumn.Hidden = True
Columns("M:N").EntireColumn.Hidden = True
Columns("P:AF").EntireColumn.Hidden = True

and

Columns("B:B").EntireColumn.Hidden = False
Columns("M:N").EntireColumn.Hidden = False
Columns("P:AF").EntireColumn.Hidden = False

regards
FSt1

"Leigh Douglass" wrote:

Hi

I have recorded a macro to hide certain columns on my sheet, then to print
the sheet and then unhide the columns. The code looks ok, but when it prints
I am only getting 2 columns instead of the whole document. Any help
gratefully received, macro code below. Thanks

Private Sub CommandButton3_Click()
'
' print_mode Macro
' Macro recorded 02/09/2008 by Leigh Douglass'

'
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=1
Columns("M:N").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=3
Columns("P:AF").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-9
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll ToRight:=4
Columns("L:O").Select
Range("O1").Activate
Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll ToRight:=3
Columns("O:AG").Select
Range("AG1").Activate
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub