Bildschirmdruck DoCmd.PrintOut

[KlaSur]

Hallo,

das ist mein Code. An meinen Pc läuft der Code und die Bildschirmseite wird gedruck. Beim nächsten Arbeitsplatz gibt es eine Fehlermeldung "Der Befehl oder die Aktion "Drucken" ist zur zeit nicht verfügbar". Bei beiden Pc ist natürlich ein Drucker angeschlossen und betriebsbereit.

Code [Auswählen] Erweitern

On Error GoTo Err_Befehl156_Click
    Dim stDocName As String
    Dim MyForm As Form
    stDocName = "FKAuftragsstandU"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.NAME, False
Exit_Befehl156_Click:
    Exit Sub
Err_Befehl156_Click:
    MsgBox Err.Description
    Resume Exit_Befehl156_Click
Wo liegt der Fehler?

mfg KlaSur