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.
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