Private Sub cmdDruck_Click()
Dim i As Integer
 
'---Druckerdialog öffnen
On Error Resume Next
With dlgCommonDialog
    .ShowPrinter
    If Err.Number = 0 Then
 
        '---Text ausdrucken
        Printer.Font.Size = 10
        Printer.Copies = .Copies
            For i = 1 To 100
              Printer.Print , "Test " + Str(i)
            Next i
        Printer.EndDoc
    End If
End With
End Sub

Printer.Font.Size = 10

Dim Printer as Printer 'oder Variant

VG

Dirk