Private Sub Command1_Click()
Dim i, prt As Object
On Error GoTo fehler
    With CommonDialog1
        .CancelError = True
        .Flags = cdlPDPrintSetup Or cdlPDHidePrintToFile Or cdlPDReturnDC Or _
          cdlPDUseDevModeCopies
        .PrinterDefault = False
        .ShowPrinter
        For Each prt In Printers
            If prt.hDC = CommonDialog1.hDC Then
                Set Printer = prt
            End If
        Next prt
        For i = 1 To 10
            Printer.Print "Test!!!!!!"
        Next i
            Printer.EndDoc
    End With
Exit Sub
fehler:
'abgebrochen
End Sub