Bericht ausdrucken mit VBA Code

[lukyluke68]

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

[DF6GL]

Hallo,

kannst Du doch selbst feststellen, ob es richtig ist.. 

[lukyluke68]

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

[DF6GL]

Hi,


dieses:

Docmd.Close acReport, "rpt_Warenbegleitschein_Festo"