How do I repeat a column when printing in a macro?

[Guest]

I am using a 53x27 worksheet with a print macro designed by someone in my
office. The first column contains information I would like to print on each
of the 3 pages that prints out. This is how it looks now:

ActiveSheet.PageSetup.PrintArea = "$a$6:$n$42"
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$o$6:$aa$42"
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$a$46:$m$53"
ActiveWindow.SelectedSheets.PrintPreview

I want the a6:a42 range to print on each page along with the above print
areas.

 

[Guest]

Try adding

With ActiveSheet.PageSetup
.PrintTitleColumns = "$A:$A"
End With

Rowan

 

[Guest]

Worked perfectly. Thanks.

Try adding

With ActiveSheet.PageSetup
.PrintTitleColumns = "$A:$A"
End With

Rowan