Visual Basic 6: Drucken

Aus Wikibooks
Wechseln zu: Navigation, Suche

Das ist leider kein VB6-Quellcode, sondern VB.Net!

Drucken Zum Drucken muss sich ja erst mal einen Dialog "Drucken" öffnen und das Dokument sollte bei OK-Click an den Drucker gesendet werden. Das geschieht folgend:

   Dim PrintDialog1 As New PrintDialog
   PrintDialog1.Document = docToPrint
   Dim result As DialogResult = PrintDialog1.ShowDialog()
   If (result = Windows.Forms.DialogResult.OK) Then
    docToPrint.Print()
   End If

Damit er weiss war er bei docToPrint zu tun hat, fügen wir ein Event ein:

      Private WithEvents docToPrint As New Drawing.Printing.PrintDocument

Und damit er weiss was er drucken soll, füttern wir ihn mit Draw-Informationen:

       Private Sub document_PrintLinePage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles docToPrintLine.PrintPage
        e.Graphics.DrawImage(bild as bitmap, poindraw)
        e.Graphics.DrawString(text as string, drawFont, Drawing.Brushes.Black, 170, 135)
        e.Graphics.DrawLine(Drawing.Pens.Black, 0, 200, 700, 200)
        End Sub