Private Sub cmddrucken_Click()
 
Dim stDocName As String
 Dim MyForm As Form
 Dim BeginPage, EndPage, NumCopies, i
    ' Cancel auf True setzen
    CommonDlg.CancelError = True
    On Error GoTo ErrHandler
    ' Dialogfeld "Drucken" anzeigen
    CommonDlg.ShowPrinter
    ' Vom Benutzer ausgewählte Werte vom Dialogfeld
    ' abrufen
    CommonDlg.PrinterDefault = True
 
    BeginPage = CommonDlg.FromPage
    EndPage = CommonDlg.ToPage
    NumCopies = CommonDlg.Copies
    For i = 1 To NumCopies
        ' Hier Code zum Senden von Daten an
        ' den Drucker einfügen
        stDocName = "frmanalyseD"
        'Set MyForm = Screen.ActiveForm
        DoCmd.SelectObject acForm, stDocName, True
        DoCmd.PrintOut
        DoCmd.SelectObject acForm, MyForm.Name, False
    Next i
    Exit Sub
ErrHandler:
    ' Benutzer hat Schaltfläche "Abbrechen" gewählt
    Exit Sub
 
End Sub