Dynamisch afdrukbereik VBA

[tom01234]

Goedemiddag Excellers,

Vraagje over dynamisch afdruk bereik.
het aantal regels heb ik bepaald dmv volgende formule in VBA;
Sub HPaginaEinde()
Dim c As Range, bOk As Boolean
With Sheets("Sticker")
.ResetAllPageBreaks
If .HPageBreaks.Count Then
On Error Resume Next
Set c = .Range("A" & .Rows.Count).End(xlUp).Offset(-8)
bOk = Not (c Is Nothing)
Do While bOk
.HPageBreaks.Add Before:=c
bOk = c.Row > 15
If bOk Then Set c = c.Offset(-9)
Loop
End If
End With
End Sub

Nu had ik voor het afdrukbereik een formule staan voor het afdruk bereik =VERSCHUIVING(Sticker!$A$4;0;0;(AANTAL.ALS(Sticker!$A:$A;1));9)
Dit is een slechte combinatie, VBA breekt deze formule door reset all page breaks.
Ik heb in kolom A een 1 of een 0 staan waardoor bepaald word of deze regel in een afdruk bereik geplaatst mag worden. Hoe bepaal ik dit in VBA en daarbij het aantal kolommen wat in afdrukbereik zit.

Kunnen meerdere pagina's zijn.

BVD

 

[gast0660]

Beste Tom
Opmerking 1, plaats in het vervolg uw code tussen code tags
Zo dus

Sub HPaginaEinde()
Dim c As Range, bOk As Boolean
With Sheets("Sticker")
.ResetAllPageBreaks
If .HPageBreaks.Count Then
On Error Resume Next
Set c = .Range("A" & .Rows.Count).End(xlUp).Offset(-8)
bOk = Not (c Is Nothing)
Do While bOk
.HPageBreaks.Add Before:=c
bOk = c.Row > 15
If bOk Then Set c = c.Offset(-9)
Loop
End If
End With
End Sub

Deze?

het aantal regels heb ik bepaald dmv volgende formule in VBA

Ik zie nergens een formule verwijzing in uw code.
En als laatste, waar is uw vb bestandje?