If C1.Value = 1 Then
  On Error Resume Next
  With MDIForm1.CommonDialog1
    .CancelError = True
    ' Dialogfeld Drucken anzeigen
On Error GoTo we1
Open "Settings.exp" For Input As #1
 
Line Input #1, sLine
Line Input #1, sLine
If sLine = "1" Then
    .ShowPrinter
End If
we1:
Close #1
    If Err.Number = 0 Then
      ' vom Benutzer ausgewählte Werte vom Dialogfeld abrufen
      BeginPage = .FromPage
      EndPage = .ToPage
      NumCopies = .Copies
      For i = 1 To NumCopies
        ' hier gegebenenfalls Schriftart, Schriftgröße, etc. vorgeben
        Printer.FontBold = .FontBold
        Printer.FontItalic = .FontItalic
        Printer.FontSize = .FontSize
        Printer.FontStrikethru = .FontStrikethru
        Printer.FontUnderline = .FontUnderline
        Printer.Print "";
        fr1.Picture1.ScaleMode = vbCentimeters
        fr1.Picture1.AutoSize = True
        fr1.Picture1.Refresh
        fr1.Picture1.AutoSize = False
        ImageLeft = 4.1
        ImageTop = 2.1
        imageheight = 12.1
        imagewidth = 12.1
        Printer.PaintPicture fr1.Picture1.Picture, ImageLeft, ImageTop, _
          imageheight, imagewidth
        Printer.EndDoc
      Next i
    End If
 End With
 Unload Me
 Exit Sub
End If

Wer nicht fragt bleibt dumm, wer sich sch?mt zu fragen, sch?n dumm