Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        With PrintDocument1
            ' Drucker für den Ausdruck festlegen
            .PrinterSettings.PrinterName = "Microsoft Office Document Image" & _
              "Writer"
 
            ' Dokument-Title
            .DocumentName = "Print Picture"
 
            ' Ausdruck starten
            .Print()
        End With
 
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, _
      ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
      Handles PrintDocument1.PrintPage
 
 
        Dim c As Color = Color.Black
        Dim f As Font = New Font("Code39", 9, FontStyle.Regular, _
          GraphicsUnit.Point)
 
 
        Draw("*1PGK15614AA01*", e.Graphics, f, 10, 100, 2, 45)
        Draw("*S20840001011976*", e.Graphics, f, 10, 110, 1, 0)
 
    End Sub
 
    Private Sub Draw(ByVal Str As String, ByVal draw As Graphics, ByVal f As _
      Font, _
    ByVal X As Integer, ByVal Y As Integer, ByVal scale As Single, ByVal rotate _
    As Integer)
        draw.PageUnit = GraphicsUnit.Millimeter
        draw.TranslateTransform(X, Y)
        draw.RotateTransform(angle:=rotate)
        draw.ScaleTransform(sx:=1.0F, sy:=scale)
        draw.DrawString(Str, f, New SolidBrush(Color.Black), 0.0F, 0.0F)
        draw.TranslateTransform(-X, -Y)
 
 
    End Sub