Private Sub mnu_drucken_Click()
Dim BeginPage, EndPage, NumCopies, i
 
    On Error Resume Next
    With CommonDialog1
        .CancelError = True
        .ShowPrinter
 
        If err.Number = 0 Then
 
            BeginPage = .FromPage
            EndPage = .ToPage
            NumCopies = .Copies
 
            MsgBox "Das Bild wird auf dem Drucker ''" & Printer.DeviceName & _
              "'' gedruck!", vbInformation, "Drucken..."
 
            For i = 1 To NumCopies
                Call PrintPictureToFitPage(Printer, Picture1.Picture, _
                  RandLinks,      RandOben) 'printer.print Text1.Text
                Printer.EndDoc
 
            Next i
 
        End If
     End With
 
Exit Sub
err:
 
End Sub

Wer aufhört sich zu verbessern, hört auf gut zu sein.