Hallo zusammen,
ich möchte gerne eine Funktion mehrfach aufrufen und dazu eine Variable nutzen.
Da der Aufruf des Berichts erfolgt, habe ich gedacht ich übergebe der Funktion den Berichtsnamen als String.
Nun meckert aber wiederum die Set-Zuweisung. Wie kann ich das hinbekommen?
Aufruf:
Duplexdruck (Berichtsname)
Funktion:
Function Duplexdruck(Bericht As String)
Dim rpt As Report
Application.Printer = Application.Printers("Drucker")
DoCmd.OpenReport Bericht, acViewPreview, , , acHidden
Set rpt = Reports!Bericht <-- hier ist das Problem
With rpt.Printer
.BottomMargin = 10
.Copies = 1
.Duplex = acPRDPHorizontal 'Double sided
End With
DoCmd.OpenReport Bericht, acViewNormal
DoCmd.Close acReport, Bericht, acSaveNo
Set Application.Printer = Nothing
End Function
Danke im Voraus.
Gruß
Björn
Hallo,
richtig wäre set rpt = reports(Bericht)
Andreas
Danke Andreas. Dies hat gefunzt!