Print Macro code help

L

Leigh Douglass

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
 
F

FSt1

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top