|
New user
Beiträge: 3
| Hallo Karl,
es hat jetzt funktioniert! Danke dir für deine wertvollen Tipps mit dem Hochkomma, bei mir ist kurzer Text eingestellt.
Der funktionierende Code ist:
DoCmd.OpenReport ReportName:="repRechnung", View:=acViewPreview, WhereCondition:="[auftNr] = '" & Me![auftNr] & "'"
Reports!repRechnung.Printer = Application.Printers("DruckerXYZ")
DoCmd.PrintOut PrintRange:=acPages, PageFrom:=1, PageTo:=1, Copies:=1
DoCmd.Close ObjectType:=acReport, ObjectName:="repRechnung"
DoCmd.OpenReport ReportName:="repRechnung", View:=acViewPreview, WhereCondition:="[auftNr] = '" & Me![auftNr] & "'"
DoCmd.PrintOut PrintRange:=acPages, PageFrom:=1, PageTo:=1, Copies:=2
DoCmd.Close ObjectType:=acReport, ObjectName:="repRechnung"
Mit dem Code wird mir nun zuerst auf dem gewünschten Drucker"XYZ" Variante 1 ausgedruckt und auf dem Standarddrucker parallel 2 weitere Abzüge!
Viele Grüße
Ben | |
|
Explizite Berichte filtern und Mehrfach drucken