Private Sub Druck(PrintObj As Object)
PrintObj.Font.Size = 7
x = 15
PrintTxt PrintObj, "test", x, 43    
 
'bei Ausgabe auf Drucker Blattauswurf
      If TypeOf PrintObj Is Printer Then
         PrintObj.EndDoc
      Else
         'Bild abstellen und 1. Bild in Picbox laden
         Set PrnPics(UBound(PrnPics)) = PrintObj.Image
         PrintObj.Cls
         PrintObj.Picture = PrnPics(0)
      End If
End Sub
 
Private Sub PrintTxt(PrintObj As Object, Txt As String, _
                     Optional X As Variant, Optional Y As Variant)
 
      'X-Achse einstellen falls übergeben
      If Not IsMissing(X) Then PrintObj.CurrentX = X
 
      'Y-Achse einstellen falls übergeben
      If Not IsMissing(Y) Then PrintObj.CurrentY = Y
 
      'ausgeben
      PrintObj.Print Txt
End Sub
 
Private Sub drucken_Click()
    With CommonDialog1
        .DialogTitle = "Drucken"
        .CancelError = True
        .flags = cdlPDReturnDC
        .ShowPrinter
        If Err <> MSComDlg.cdlCancel Then
            Druck Printer
        End If
    End With
End Sub