How do I repeat specific rows on some pages and then change for ot

[Worker Bee]

How do I repeat a specific row for 18 pages and then change the repeating row
for
7 other pages in the same worksheet?

 

[Gord Dibben]

Two print jobs.

You can do it with VBA but it would still be two print jobs.

Example VBA.............revised Ron de Bruin code.

Sub Print_Titles()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveSheet.PrintOut From:=1, To:=18 'first print job
With ActiveSheet.PageSetup
.PrintTitleRows = "$3:$3"
.PrintTitleColumns = ""
End With
ActiveSheet.PrintOut From:=19, To:=TotPages 'second print job
End With
End Sub


Gord Dibben MS Excel MVP


On Tue, 19 May 2009 15:07:01 -0700, Worker Bee <Worker

 

[Gord Dibben]

Two print jobs.

You can do it with VBA but it would still be two print jobs.

Example VBA.............revised Ron de Bruin code.

Sub Print_Titles()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveSheet.PrintOut From:=1, To:=18 'first print job
With ActiveSheet.PageSetup
.PrintTitleRows = "$3:$3"
.PrintTitleColumns = ""
End With
ActiveSheet.PrintOut From:=19, To:=TotPages 'second print job
End With
End Sub


Gord Dibben MS Excel MVP


On Tue, 19 May 2009 15:07:01 -0700, Worker Bee <Worker