Problem mit Stringumwandlung

[bhommi]

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

[Hondo]

Hallo,
richtig wäre set rpt = reports(Bericht)

Andreas

[bhommi]

Danke Andreas. Dies hat gefunzt!