Excel PrintTitleRows

[JaapMol]

Recent heb ik een excel sheet aangemaakt waarvoor een
selectie geprint moet worden (PageSetup.PrintArea = "$B$1:$HG$60")
met bovenaan titel rijen 64-72.

Graag zou ik hiervoor .PrintTitleRows = "$64:$72" willen gebruiken.

Dit geeft niet het gewenste resultaat, de rijen worden niet geprint.
Vervolgens heb ik;

'Stel de titels in.
ActiveSheet.PageSetup.PrintTitleRows = "Print_Titels_Secretariaat"

met "Print_Titels_Secretariaat" = '01 09'!$64:$74

Dit geeft ook niet het gewenst resultaat.

Weet iemand hoe het wel kan?

Jaap






Sub MacroPrintTitels()
'
' MacroPrintTitels
'

'
'Hide de cellen voor het secretariaat overzicht (bovenste kolommen inklappen)
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

'Print selectie voor de secretariaat print opdracht).
ActiveSheet.PageSetup.PrintArea = "$B$1:$HG$60"

'Stel de titels in.
ActiveSheet.PageSetup.PrintTitleRows = "Print_Titels_Secretariaat"


With ActiveSheet.PageSetup
.PrintTitleColumns = ""
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
'Liggend
.Orientation = xlLandscape
.Draft = False
'A4
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 90


End With
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Wigi]

Moeten de titelrijen misschien deel uitmaken van de af te drukken selectie?

PS: graag code tags plaatsen rondom code hier op het forum.

Wigi

 

[JaapMol]

PrintTitleRows

De selectie beslaat 45 rijen waarvan er 36 passen op één liggend a4.

De rijen die ik als titel wil gebruiken staan op rij 64-74 dus onder
de selectie.

 

[Wigi]

De selectie beslaat 45 rijen waarvan er 36 passen op één liggend a4.

De rijen die ik als titel wil gebruiken staan op rij 64-74 dus onder
de selectie.

En als je dan eens test of deze werkwijze werkt voor titelrijen die deel uitmaken van de selectie?

 

[snb]

Uit de hulpfunktie van Excel:

Voorbeeld van de eigenschap PrintTitleColumns

In het volgende voorbeeld wordt de derde rij gedefinieerd als titelrij en de kolommen 1 tot en met 3 als titelkolommen.

Worksheets("Sheet1").Activate
ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows(3).Address
ActiveSheet.PageSetup.PrintTitleColumns = ActiveSheet.Columns("A:C").Address

 

[JaapMol]

PrintTitleRows

De selectie van de cellen voor pagina 1&2 onder elkaar beslaat celeln
B1-HG60.

De volgende code met variabele i voor negen rijen:

'Print selectie voor de secretariaat print opdracht).
    ActiveSheet.PageSetup.PrintArea = "$B$1:$HG$60"
    'Selecteer de titel rijen
    ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Range("A64:A74", Rows(i)).Address

heeft als resultaat dat de 1e 9 rijen op pagina 1 gekozen worden als titel rijen.
Kan ik rijen 64 tot 74 bovenaan iedere pagina krijgen (zonder kop tekst/ voettekst te
gebruiken)?

 

[snb]

Ik heb niet de indruk dat je weet wat de code doet en hoe VBA-code moet worden geschreven.