Printing on a new page

[Zimba]

I want to take a new page while running over a resultset.
I made a very simple sample, i want to take a new page in "Afdrukken"
It's easy to say test on 14000 and don't test in "Afdrukken" but this is
only a simple sample, don't change the code, I really need a pagebreak in
"Afdrukken"

Thanks in advance

Here is the code

Dim afdruk As New SDCNetAfdrukDLL.clsAfdrukDLL
Dim i As Integer
Dim pry As Long
Dim strSQL As String
Dim rs As New FBZNETDataObject.FBZNETData
Dim bReturn As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
Button1.Click
PrintDoc = New Printing.PrintDocument
strSQL = "SELECT Volgnr, Opmerking, ToegewezenAan, DatumOpl " _
& " FROM Taak "
bReturn = rs.lezen(strSQL)
PrintDoc.Print()
End Sub
Private Sub PrintDoc_PrintPage(ByVal sender As Object, ByVal e As

System.Drawing.Printing.PrintPageEventArgs)
Handles PrintDoc.PrintPage
afdruk.pageEvents = e
'Running over resultset
Do While Not rs.EOF
Afdrukken()
'Take a new page when 15000 twips
If pry 15000 Then
e.HasMorePages = True
pry = 500
Exit Sub
End If
bReturn = rs.Volgende
Loop
e.HasMorePages = False
End Sub

Private Sub Afdrukken()
afdruk.Tekst(500, pry, rs.Waarde("Volgnr"))
pry = pry + 500
afdruk.Tekst(500, pry, rs.Waarde("opmerking"))
pry = pry + 500
'Take a new page when 15000
If pry 15000 Then
'Here i want a pagebreak !!!!!
End If
afdruk.Tekst(500, pry, rs.Waarde("ToegewezenAan"))
pry = pry + 500
afdruk.Tekst(500, pry, rs.Waarde("DatumOpl"))
pry = pry + 500
End Sub

[JR]

Hoi,

In Uw afdrukroutine moet je ergens bijhouden hoever je bent gekomen met een
static variabele. dan stel je newpage op true (e.HasMorePages = True)

Dan verlaat je je routine want zodra je
e.HasMorePages = True bekomt kom je vanzelf opnieuw in dezelfde routine.
waar je volgens de static variabele verder afdrukt

Jan
"Zimba" <Zi***@discussions.microsoft.comschreef in bericht
news:A0**********************************@microsof t.com...

>I want to take a new page while running over a resultset.
I made a very simple sample, i want to take a new page in "Afdrukken"
It's easy to say test on 14000 and don't test in "Afdrukken" but this is
only a simple sample, don't change the code, I really need a pagebreak in
"Afdrukken"

Thanks in advance

Here is the code

Dim afdruk As New SDCNetAfdrukDLL.clsAfdrukDLL
Dim i As Integer
Dim pry As Long
Dim strSQL As String
Dim rs As New FBZNETDataObject.FBZNETData
Dim bReturn As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
Button1.Click
PrintDoc = New Printing.PrintDocument
strSQL = "SELECT Volgnr, Opmerking, ToegewezenAan, DatumOpl " _
& " FROM Taak "
bReturn = rs.lezen(strSQL)
PrintDoc.Print()
End Sub
Private Sub PrintDoc_PrintPage(ByVal sender As Object, ByVal e As

System.Drawing.Printing.PrintPageEventArgs)
Handles PrintDoc.PrintPage
afdruk.pageEvents = e
'Running over resultset
Do While Not rs.EOF
Afdrukken()
'Take a new page when 15000 twips
If pry 15000 Then
e.HasMorePages = True
pry = 500
Exit Sub
End If
bReturn = rs.Volgende
Loop
e.HasMorePages = False
End Sub

Private Sub Afdrukken()
afdruk.Tekst(500, pry, rs.Waarde("Volgnr"))
pry = pry + 500
afdruk.Tekst(500, pry, rs.Waarde("opmerking"))
pry = pry + 500
'Take a new page when 15000
If pry 15000 Then
'Here i want a pagebreak !!!!!
End If
afdruk.Tekst(500, pry, rs.Waarde("ToegewezenAan"))
pry = pry + 500
afdruk.Tekst(500, pry, rs.Waarde("DatumOpl"))
pry = pry + 500
End Sub