1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
Public Shared Sub PageMaker()
Page += 1 'On incrémente le nombre de page
'On redimensionne les tableaux
ReDim Preserve objbitmap(Page)
ReDim Preserve objGraphics(Page)
'Creation d'objet avec Set la mise en page
objbitmap(Page) = New Bitmap(1275, 1650)
objbitmap(Page).SetResolution(150, 150)
'Association Bitmap-Graphic et Remplissage en blanc
objGraphics(Page) = Graphics.FromImage(objbitmap(Page))
objGraphics(Page).FillRectangle(Brushes.White, 0, 0, objbitmap(Page).Width, objbitmap(Page).Height)
frmSReport.NBXNoPage.Maximum = Page + 1
' Creer font brush position.
Dim drawFont As New Font("arial", 10)
Dim drawBrush As New SolidBrush(Color.Black)
Dim drawPoint As New PointF(10,10)
'Dessin des string TEST(X)
For X as integer = 10 to 50 step 10
objGraphics(page).DrawString("TEST" & X, drawFont, drawBrush, drawPoint)
drawpoint= new pointF(10,X)
Next
'Impression
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage_1(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim newMargins As System.Drawing.Printing.Margins = New System.Drawing.Printing.Margins(0.2, 0.2, 0.2, 0.2)
PrintDocument1.DefaultPageSettings.Margins = newMargins
e.Graphics.DrawImage(PageReport.bitmap(0), 0, 0)
PrintDocument1.PrinterSettings.PrinterName = "CutePDF Writer"
End Sub |
Partager