How can I insert a pagefeed or newpage in this
Posted: Monday 30th December 2019 7:17am
I need a Page feed or new page at the comment below ... at line 37
' Gambas class file
Static Public iCkNumber As Integer
Static Public ibankroute As String
Static Public iaccountNumber As String
Static Public iStartCkNum As Integer = 25000
Public Sub Form_Open()
End
Public Sub Prn1_Draw()
Dim ix, inumpages As Integer
Dim mircnumber As String
Dim iCkNumber As Integer
iCkNumber = iStartCkNum
For inumpages = 1 To 3
iStartCkNum += 3
For ix = 0 To 400 Step 200
Paint.Font = Font["Aeral, 12, bold "]
Paint.DrawRichText(iCkNumber, 480, 25 + ix)
Paint.Font = Font["Aeral,9"]
Paint.DrawrichText("<b>John Doe JR.</b><br> 1234 Main Sr. <br>Hometown Il 66152", 210, 35 + ix)
Paint.DrawrichText("<u>Date______________________ </u>", 390, 65 + ix)
Paint.DrawrichText("<small>Pay to the<br><u>order of:</u></small><u>_______________________________________________________________|</u>", 190, 80 + ix)
Paint.DrawrichText("<h3>$<u>________________</u></h3> ", 472, 88 + ix)
Paint.DrawrichText("<u>______________________________________________________________________________<small>Dollars</small></u>", 190, 120 + ix)
Paint.Font = Font["MICR Encoding,18"]
mircnumber = Str("a7200012345a c8543987c") & Str(iCkNumber)
Paint.DrawRichText(mircnumber, 197, 200 + ix)
Inc iCkNumber
Next 'ix
' need page feed here
Next
End
Public Sub Button1_Click()
If Prn1.Configure() Then Return
Prn1.Print()
End