Private IsLonger As Boolean = True
 
Private Sub PrintDoc_PrintPage ' Bla, bla, bla
' Dim bla bla
If islonger=True then
Goto MachDas
End if
 
' Code blabla
If MeineLaenge > 5 then
IsLonger=True
e.HasMorePages=True
End If
Exit Sub
 
MachDas:
' BlaBla 2. Seite
e.hasmorepages=false
islonger=false
End Sub