Access: Ausdruck als PDF mit gefilterten Bericht

Hallo gemeinschaft,

möchte gerne ein pdf erstellen von einem Bericht

wenn ich es so mache, dann wird ein pdf erstellt mit allen Datensätzen

DoCmd.OutputTo acOutputReport, "rpt_Rechnungen", acFormatPDF, invoicePDF

so wird er richtig angezeigt

DoCmd.OpenReport "rpt_Rechnungen", acPreview, "", "[tbl_Rechnungen].[ID] = " & Me![id]  

weiss nicht, wie ich diesen term einbringen kann

"[tbl_Rechnungen].[ID] = " & Me![id]

wenn ich es so schreibe, bekomme ich einen typen fehler

DoCmd.OutputTo acOutputReport, "rpt_Rechnungen", acFormatPDF, invoicePDF, "[tbl_Rechnungen].[ID] = " & Me![id]  

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 7748213161

Url: https://administrator.de/contentid/7748213161

Ausgedruckt am: 22.11.2024 um 02:11 Uhr

7 Kommentare

Neuester Kommentar

Hi Jens,

so lange schon Mitglied und immernoch unfähig Codetags zu nutzen.

Diggi, das ist kacke.

Moin,

nimm mal dies hier als vorlage.

Dim FilterString As String
FilterString = "[id] = " & p_RechnungID  

DoCmd.OpenReport reportName, acViewPreview, , FilterString
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, Dateiname, False
DoCmd.Close acReport, reportName

Stefan

Heute schon wieder früh Freitag
Erst OpenReport , dann OutputTo dann Close
How to Output a dynamically filtered Access report to PDF

Auch die Ausgabe in einem Report unterliegt den üblichen Abfragen ...

... entweder als vordefinierte Abfrage oder im Eigenschaften/Datenquelle Bereich ...

Um dynamisch einen Wert abzufragen gelten dieselben Regeln: Ein Datenfeld anlegen, das nicht Teil der Datenquelle ist und Bedingung hinzufügen ...

super klasse - lieben Dank

wie würdet ihr es machen, wenn das pdf erstellt wird und im entsprechenden Ordner abgelegt wird - wenn man dann erneut das script ausführt, dann kommt bei mir im mom der fehler

die Aktion OutputT wurde abgebrochen

weil die datei ja schon existiert

Prüfen ob Datei schon existiert dann löschen und speichern oder abbrechen je nachdem was man machen will.

Set fso = CreateObject("Scripting.FileSystemObject")  
If fso.FileExists("c:\pfad\datei.pdf") then  
    ' existiert  
else
    ' existiert nicht  
End if