jensgebken
Goto Top

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]  

Content-Key: 7748213161

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

Printed on: April 27, 2024 at 08:04 o'clock

Member: accessViolation
accessViolation Jan 17, 2024 at 13:46:39 (UTC)
Goto Top
Hi Jens,

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

Diggi, das ist kacke.
Member: StefanKittel
Solution StefanKittel Jan 17, 2024 at 13:50:38 (UTC)
Goto Top
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
Mitglied: 10138557388
10138557388 Jan 17, 2024 updated at 13:53:54 (UTC)
Goto Top
Heute schon wieder früh Freitag
Erst OpenReport , dann OutputTo dann Close
How to Output a dynamically filtered Access report to PDF
Member: MirkoKR
MirkoKR Jan 17, 2024 at 14:01:49 (UTC)
Goto Top
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 ...
Member: jensgebken
jensgebken Jan 17, 2024 at 14:36:07 (UTC)
Goto Top
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
Mitglied: 10138557388
Solution 10138557388 Jan 17, 2024 updated at 14:42:55 (UTC)
Goto Top
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
https://learn.microsoft.com/de-de/office/vba/language/reference/user-int ...
https://learn.microsoft.com/de-de/office/vba/language/reference/user-int ...

Handbuch lesen hat in deinem Wortschatz wohl noch nie existiert ...
Member: jensgebken
jensgebken Jan 17, 2024 at 15:05:49 (UTC)
Goto Top
lieben dank