Hallo,
ich möchte zu diesem Code noch dazuschreiben, dass nach dem öffnen des Reports, der Report im Standarddrucker ausgedruckt wird.
Wie muss ich das schreiben?
Private Sub Befehl19_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "rpt_Warenbegleitschein_Festo", acPreview, , "Ersatzeilerfassung_ID=" & Me!Ersatzeilerfassung_ID
End Sub
Ist das richtig?
DoCmd.Maximize
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
mfg. Ludwig
Hallo,
kannst Du doch selbst feststellen, ob es richtig ist.. ::)
Hallo,
mit dem Befehl
Private Sub Befehl19_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "rpt_Warenbegleitschein_Festo", acPreview, , "Ersatzeilerfassung_ID=" & Me!Ersatzeilerfassung_ID
DoCmd.Maximize
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
End Sub
funktioniert es super.
Ich möchte aber den Bericht nach dem Drucken gleich schließen. Was muss ich da schreiben?
Ludwig
Hi,
dieses:
Docmd.Close acReport, "rpt_Warenbegleitschein_Festo"