Page Break var Blocks - Pagina-einde variabel

[Esducsafe]

@ Helpers

Het instellen van variabele pagina-einde lukt niet. In bijgevoegde werkmap heb ik een voorbeeld uitgewerkt met twee opties.
In de eerste optie moet de tweede pagina beginnen na regel 51 en bij de tweede optie na regel 66. Met de opdrachtknoppen kunnen de opties uitgevoerd worden.
Wie heeft een (Vba) idee voor het afdrukken?
Alvast bedankt.
Esko

 

[snb]

Daar gebruik je toch gewoon Printarea voor ?

 

[Esducsafe]

SNB,
Daar heb ik al op gezocht en wat uitgeprobeerd, maar zonder succes.
Daarom hulp gevraagd.
Esko

 

[snb]

Wat heb je dan zonder succes uitgeprobeerd ?

 

[alphamax]

Private Sub CommandButton1_Click()
    ActiveWindow.View = xlPageBreakPreview 'deze moet anders werkt Set ActiveSheet.HPageBreaks(1).Location = Cells(51 + 1, 1) niet
    With Worksheets("Blad1")
        With .PageSetup
            .FitToPagesWide = 1
            .FitToPagesTall = 2
            .Orientation = xlPortrait
            .PaperSize = xlPaperA4
            .PrintArea = "A1:J75"
        End With
        Set .HPageBreaks(1).Location = Cells([COLOR="#FF0000"]51[/COLOR] + 1, 1)
    End With
End Sub

Vul bij het rode nummer je regel in.

 

[Esducsafe]

Beste SNB,

Nog wat bezig geweest om een oplossing te bedenken en tot zover werkt het.
Op het werkblad wat formules opgenomen voor het bepalen van de pagina-einde's.
Heb jij misschien een Vb oplossing?
Esko