Printing on a new page

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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
 
Back
Top