OutputQuality<\/b>: Gibt die Qualität der zu erstellenden Datei an. Wir können die beiden Werte acExportQualityPrint <\/b>und acExportQualityScreen <\/b>angeben.<\/li>\n<\/ul>\nEin Aufruf sieht beispielsweise wie folgt aus:<\/p>\n
DoCmd.OutputTo acOutputReport, \"rptBeispiel\", acFormatPDF, CurrentProject.Path & \"\\rptBeispiel_Screen.pdf\", True, , , acExportQualityScreen<\/pre>\nBericht mit Kriterium als PDF exportieren<\/h2>\n
Natürlich kommt es immer mal vor, dass man einen Bericht genau so als PDF-Dokument speichern möchte, wie man diesen auch per Doppelklick auf seinen Namen im Navigationsbereich anzeigen würde – also ohne die Angabe von Kriterien et cetera.<\/p>\n
Allerdings gibt es auch Berichte, die vor der Ausgabe im PDF-Format gefiltert werden sollen. Zu Beispielzwecken haben wir einen weiteren Bericht namens rptArtikel <\/b>angelegt, der in der Entwurfsansicht wie in Bild 1 erscheint.<\/p>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2024_06\/pic_1524_001.png\")
<\/p>\n
Bild 1: Entwurf eines Beispielberichts mit einer Artikelliste<\/span><\/b><\/p>\nWenn wir den Bericht nun gefiltert öffnen, sodass er beispielsweise nur die Artikel mit den Werten bis 10 <\/b>im Feld ArtikelID <\/b>ausgibt, öffnen wir diesen wie folgt:<\/p>\nDoCmd.OpenReport \"rptArtikel\", acViewPreview, , \"ArtikelID <= 10\"<\/pre>\nDas Ergebnis sehen wir in Bild 2. Hier gibt der Bericht wie erwartet nur die ersten zehn Datensätze aus.<\/p>\n
![\"Bericht](\"..\/fileadmin\/_temp_\/2024_06\/pic_1524_002.png\")
<\/p>\n
Bild 2: Bericht mit Where-Bedingung<\/span><\/b><\/p>\nNun schließen wir diesen Bericht und exportieren ihn im PDF-Format:<\/p>\n
DoCmd.OutputTo acOutputReport, \"rptArtikel\", acFormatPDF, CurrentProject.Path & \"\\rptArtikel.pdf\", True, , , acExportQualityScreen<\/pre>\nDies liefert logischerweise den Bericht mit allen Datensätzen (siehe Bild 3). Nun wollen wir diesen allerdings in gefilterter Form in einem PDF-Dokument speichern.<\/p>\n
![\"Artikel-Bericht](\"..\/fileadmin\/_temp_\/2024_06\/pic_1524_003.png\")
<\/p>\n
Bild 3: Artikel-Bericht als PDF<\/span><\/b><\/p>\nDummerweise liefert uns die DoCmd.OutputTo<\/b>-Methode keine Möglichkeit, einen Parameter namens WhereCondion <\/b>für den Bericht anzugeben.<\/p>\n
Also müssen wir einen alternativen Weg finden, um den Bericht gefiltert auszugeben.<\/p>\n
Dazu gehen wir zunächst den folgenden Weg:<\/p>\n
\n- Wir öffnen den Bericht unter Angabe der WhereCondition <\/b>in der Seitenansicht.<\/li>\n
- Dann exportieren wir den Bericht.<\/li>\n<\/ul>\n
Das läuft nun ohne Probleme und liefert das gewünschte Ergebnis. Wir öffnen den Bericht, dessen Namen wir zuvor in der Variablen strReport <\/b>gespeichert haben, mit DoCmd.OpenReport<\/b>, geben diesen dann mit DoCmd.OutputTo <\/b>aus und schließen ihn mit DoCmd.Close <\/b>wieder.<\/p>\n
Die verwendete Prozedur sieht wie in Listing 1 aus.<\/p>\n
Public Sub <\/span>ArtikellisteGefiltert()\r\n Dim <\/span>strReport As String<\/span>\r\n Dim <\/span>strPfad As String<\/span>\r\n strReport = \"rptArtikel\"\r\n strPfad = CurrentProject.Path & \"\\\" & strReport & \".pdf\"\r\n DoCmd.OpenReport strReport, acViewPreview, , \"ArtikelID <= 10\"\r\n DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strPfad\r\n DoCmd.Close acReport, strReport\r\nEnd Sub<\/span><\/pre>\nListing 1: Exportieren der zuvor gefilterten Artikelliste <\/span><\/b><\/p>\nAchtung, Fehler 2501!<\/h2>\n
Es kann beim Aufruf der Prozedur DoCmd.OutputTo <\/b>passieren, dass wir den Fehler 2501 <\/b>erhalten. Wir haben einige Minuten gebraucht, um herauszufinden, weshalb dieser aufgetreten ist. Der Grund war einfach: Wir hatten die zuvor bereits einmal erzeugte PDF-Datei namens rptArtikel.pdf <\/b>bereits geöffnet. Eine geöffnete PDF-Datei kann jedoch nicht einfach überschrieben werden. Dabei erscheint die hier wenig aussagekräftige Meldung Die Aktion OutputTo wurde abgebrochen<\/b>.<\/p>\nBericht mit dem Standard PDF\/A-3 speichern<\/h2>\n
Im Beitrag PDF erstellen im Detail <\/b>(www.access-im-unternehmen.de\/1523<\/b>) haben wir gezeigt, wie wir zumindest mit neueren Access-Versionen Berichte so als PDF-Dokumente exportieren konnten, dass diese dem PDF\/A-3-Standard entsprechen. Dazu mussten wir im Speichern<\/b>-Dialog, den wir mit dem Ribbonbefehl Seitenansicht|Daten|PDF oder XPS <\/b>geöffnet haben, die Optionen einblenden und dort die Option PDF\/A-kompatibel <\/b>aktivieren (siehe Bild 4). Dies führte je nach Access-Version dazu, dass die PDF-Datei im Format PDF\/A-1 oder PDF\/A-3 erzeugt wurde.<\/p>\n
![\"Exportieren](\"..\/fileadmin\/_temp_\/2024_06\/pic_1524_004.png\")
<\/p>\n
Bild 4: Exportieren im PDF\/A-3-Format über die Benutzeroberfläche<\/span><\/b><\/p>\nWenn wir uns den Speichern<\/b>-Dialog genauer ansehen, finden wir hier mit Datei nach dem Veröffentlichen öffnen <\/b>und Optimieren für <\/b>auch noch zwei Optionen, die wir bereits von der OutputTo<\/b>-Methode des DoCmd<\/b>-Objekts kennen. Da stellt sich die Frage, ob wir vielleicht auch noch die PDF\/A-3-Kompatibilität per VBA sicherstellen können. Allerdings liefert selbst die Aktivierung der Anzeige versteckter Elemente im Objektkatalog keinerlei Hinweise auf weitere Möglichkeiten.<\/p>\n
Wenn wir den Export-Vorgang über diesen Dialog abschließen, taucht jedoch noch der Schritt Exportschritte speichern <\/b>auf (siehe Bild 5). Vielleicht liefert dieser ja noch hilfreiche Informationen?<\/p>\n
![\"Speichern](\"..\/fileadmin\/_temp_\/2024_06\/pic_1524_005.png\")
<\/p>\n
Bild 5: Speichern der Exportschritte<\/span><\/b><\/p>\nUnd was geschieht eigentlich, wenn wir das Speichern der Exportschritte wie im Screenshot aktivieren? Also probieren wir das einmal aus und nennen den Export Exportschritte_rptArtikel<\/b>.<\/p>\n
Danach stellt sich allerdings die Frage, wo diese Exportschritte überhaupt gespeichert werden und wie wir diese nutzen können. Wenn wir erneut versuchen, den Bericht zu exportieren, finden wir jedenfalls keine Gelegenheit, diese auszuwählen.<\/p>\n
Suchen wir ein wenig weiter, finden wir allerdings im Ribbon unter Externe Daten <\/b>einen Befehl namens Gespeicherte Exporte<\/b> (siehe Bild 6).<\/p>\n
![\"Im](\"..\/fileadmin\/_temp_\/2024_06\/pic_1524_006.png\")
<\/p>\n
Bild 6: Im Ribbon befindet sich ein Button namens Gespeicherte Exporte.<\/span><\/b><\/p>\nKlicken wir diesen an, öffnet sich ein Dialog, der unseren gespeicherten Export anzeigt (siehe Bild 7).<\/p>\n
![\"Unser](\"..\/fileadmin\/_temp_\/2024_06\/pic_1524_007.png\")
<\/p>\n
Bild 7: Unser gespeicherter Export<\/span><\/b><\/p>\nHier haben wir jedoch auch nur die Möglichkeit, den Export nochmals zu starten.<\/p>\n
Gespeicherten Export per VBA aufrufen<\/h2>\n
Logischerweise gibt es auch noch einen VBA-Befehl, mit dem wir einen gespeicherten Export starten können.<\/p>\n
Dieser ist ebenfalls eine Methode des DoCmd<\/b>-Objekts und heißt RunSavedImportExport <\/b>und wir rufen diese wie folgt auf:<\/p>\nDoCmd.RunSavedImportExport \"Exportschritte_rptArtikel\"<\/pre>\nMit dieser Methode können wir den Bericht exportieren. Die Frage ist noch, ob wir damit eine PDF\/A-3-kompatible Datei erstellt haben. Dazu wollen wir nun einen Validierer hinzuziehen.<\/p>\n
Validieren, ob ein PDF-Dokument dem Standard PDF\/A-3 entspricht<\/h2>\n
Unter dem folgenden Link haben wir unsere mit Access erzeugten Dokumente auf PDF\/A-3 validiert:<\/p>\n
https:\/\/avepdf.com\/de\/pdfa-validation<\/pre>\nHier kann man sein Dokument angeben und dieses prüfen lassen. In unserem Beispiel kam das Ergebnis aus Bild 8 heraus. Auch in der kostenpflichtigen Version von Adobe Acrobat können wir erkennen, ob es sich um eine PDF\/A-3-Datei handelt. Wenn wir das PDF-Dokument damit öffnen, erscheint erstens oben die Meldung, dass die Datei schreibgeschützt geöffnet wurde, weil sie Konformität mit dem PDF\/A-Standard verlangt (siehe Bild 9).<\/p>\n
![\"Validieren](\"..\/fileadmin\/_temp_\/2024_06\/pic_1524_008.png\")
<\/p>\n
Bild 8: Validieren von PDF\/A-3-Dateien<\/span><\/b><\/p>\n![\"Validieren](\"..\/fileadmin\/_temp_\/2024_06\/pic_1524_009.png\")
<\/p>\n
Bild 9: Validieren von PDF\/A-3-Dateien im Adobe Acrobat<\/span><\/b><\/p>\nAußerdem sehen wir rechts ein Icon, mit dem wir den Bereich Standards <\/b>öffnen können (der übrigens bei Dateien ohne PDF\/A-Standard gar nicht erscheint). In diesem Bereich erhalten wir die Information, dass dieses Dokument dem Standard PDF\/A-3B entspricht.<\/p>\n
PDF-Dateien, die nicht mit neueren Access-Versionen erstellt wurden, weisen teilweise nur den Standard PDF\/A-1B <\/b>auf. Wir konnten nicht genau herausfinden, ab welchen Versionen PDF\/A-3B erzeugt wird, daher sollte man dies immer selbst prüfen, wenn PDF-Dokumente mit diesem Standard benötigt werden – beispielsweise als Basis für ZUGFeRD-Rechnungen.<\/p>\n
Damit haben wir grundsätzlich eine Lösung, mit der wir unseren Bericht im PDF\/A-3-Format exportieren können. Wir benötigen allerdings nun noch eine Möglichkeit, die auszugebenden Daten wie im vorherigen Beispiel durch eine WhereCondition<\/b> festzulegen. Lässt sich dies genau wie zuvor erledigen, indem wir den Bericht mit WhereCondition<\/b> öffnen, diesen über den gespeicherten Export als PDF-Dokument speichern, und den Bericht dann wieder schließen?<\/p>\n
So etwas findet man nur heraus, indem man es ausprobiert. Unsere Testprozedur sieht wie folgt aus, und diesmal wollen wir die ersten 15 Datensätze ausgeben:<\/p>\n
Public Sub <\/span>GespeicherterExportGefiltert()\r\n Dim <\/span>strReport As String<\/span>\r\n Dim <\/span>strPfad As String<\/span>\r\n strReport = \"rptArtikel\"\r\n strPfad = CurrentProject.Path & \"\\\" & strReport & \".pdf\"\r\n DoCmd.OpenReport strReport, acViewPreview, , _\r\n \"ArtikelID <= 15\"\r\n DoCmd.RunSavedImportExport \"Exportschritte_rptArtikel\"\r\n DoCmd.Close acReport, strReport\r\nEnd Sub<\/span><\/pre>\nAber können wir damit nun beispielsweise auch einen anderen Bericht öffnen und diesen im PDF\/A-3-Format speichern? Wir öffnen also einfach mal unseren ganz einfachen Beispielbericht von Anfang des Beitrags und versuchen, den gespeicherten Export auf diesen anzuwenden:<\/p>\n
DoCmd.OpenReport \"rptBeispiel\", acViewPreview\r\nDoCmd.RunSavedImportExport \"Exportschritte_rptArtikel\"\r\nDoCmd.Close acReport, strReport<\/pre>\nDies führt allerdings nicht zum gewünschten Ergebnis – es wird der Bericht rptArtikel <\/b>exportiert, und zwar diesmal mit allen Datensätzen.<\/p>\n
Das bedeutet also: Der gespeicherte Export legt das PDF immer für den beim Erstellen des Exports angegebenen Bericht an. Wenn wir den gleichen Bericht während des gespeicherten Exports geöffnet haben, holt sich die Methode RunSavedImportExport <\/b>aber wohl die WhereCondition <\/b>vom aktuell geöffneten Datensatz.<\/p>\nGespeicherten Export anpassen<\/h2>\n
Damit bleibt noch eine Frage: Wie können wir mithilfe eines gespeicherten Exports einen beliebigen Bericht exportieren, ohne dass wir für jeden zu exportierenden Bericht zuvor einen gespeicherten Export angelegt haben? Hier stellt sich erst einmal die Frage, ob es so viele Berichte gibt, dass man sich genauer ansieht, wie man dies automatisieren könnte. Wenn wir davon ausgehen, dass das PDF\/A-3-Format überwiegend zum Erstellen von PDFs für ZUGFeRD-Rechnungen verwendet werden soll, dürfte die Anzahl in den meisten Anwendungen überschaubar sein.<\/p>\n
Aber uns reizt schon die Aufgabe, herauszufinden, wo die gespeicherten Exporte gespeichert werden – um diese dann auch noch anpassen zu können. Wie das gelingt, schauen wir uns allerdings in einem eigenen Beitrag namens Gespeicherte Importe und Exporte verwalten<\/b> (www.access-im-unternehmen.de\/1526<\/b>) an.<\/p>\nAnpassbaren gespeicherten Export für PDF\/A-3-Dokumente<\/h2>\n
Nachdem wir dort herausgefunden haben, wie wir auf die gespeicherten Importe und Exporte zugreifen können, passen wir dies nun auf unsere hier vorliegende Anforderung an. <\/p>\n
Dazu legen wir noch einmal einen neuen gespeicherten Export an, den wir gleich entsprechend benennen:<\/p>\n
\n- Markieren eines zu exportierenden Berichts im Navigationsbereich<\/li>\n
- Anklicken des Ribbonbefehls Externe Daten|Exportieren|PDF oder XPS<\/b><\/li>\n
- Anklicken des Befehls Optionen… <\/b>im Dialog Als PDF oder XPS veröffentlichen<\/b><\/li>\n
- Aktivieren der Option PDF\/A-kompatibel<\/b> (wobei wir diese auch noch später einstellen können)<\/li>\n
- Betätigen des Befehls Veröffentlichen<\/b><\/li>\n
- Im Dialog Exportieren – PDF <\/b>die Option Exportschritte speichern aktivieren<\/b><\/li>\n
- Für Speichern unter: <\/b>einen Text wie Export PDF\/A-3 <\/b>eintragen<\/li>\n
- Auf Export speichern <\/b>klicken<\/li>\n<\/ul>\n
Damit ist der gespeicherte Export mit den wichtigsten Optionen bereits angelegt. Nun wollen wir zwei Parameter anpassen können:<\/p>\n
\n- den Namen des zu exportierenden Berichts und<\/li>\n
- den Speicherort.<\/li>\n<\/ul>\n
Bevor wir uns den XML-Code ansehen, fügen wir einen Verweis auf die Bibliothek Microsoft XML v3.0 <\/b>zum VBA-Projekt hinzu (siehe Bild 10).<\/p>\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2024_06\/pic_1524_010.png\")
<\/p>\n
Bild 10: Hinzufügen des Verweises auf die XML-Bibliothek<\/span><\/b><\/p>\nXML-Code des gespeicherten Exports betrachten<\/h2>\n
Um den Code vorab einmal zu sichten, reichen uns nun die folgenden Anweisungen.<\/p>\n
Wichtig ist, dass wir den korrekten, soeben festgelegten Namen für den gespeicherten Export als Index angeben:<\/p>\n
Public Sub <\/span>GespeichertenExportAnpassen()\r\n Dim <\/span>objSpecification As <\/span>ImportExportSpecification\r\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument\r\n Set<\/span> objSpecification = CurrentProject. _\r\n ImportExportSpecifications(\"Export PDF\/A-3\")\r\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument\r\n objXML.loadXML objSpecification.XML\r\n Debug.Print<\/span> objXML.XML\r\nEnd Sub<\/span><\/pre>\nHier ist das Ergebnis:<\/p>\n
<ImportExportSpecification Path=\"C:\\Users\\User\\Documents\\rptArtikel.pdf\" xmlns=\"urn:www.microsoft.com\/office\/access\/imexspec\">\r\n <ExportPDF AccessObject=\"rptArtikel\" ObjectType=\"Report\" AutoStart=\"false\" Quality=\"screen\" UseISO19005_1=\"true\"\/>\r\n<\/ImportExportSpecification><\/pre>\nWir müssen hier zwei Elemente anpassen. Das erste ist das Attribut Path <\/b>des Elements ImportExportSpecification<\/b>, das den Pfad der zu erstellenden Datei enthält.<\/p>\n
Das zweite ist der Name des zu exportierenden Berichts, hier aktuell auf rptArtikel <\/b>eingestellt.<\/p>\n
Diese Elemente ändern wir durch einfache XML-Operationen. Damit wir diese flexibel ändern können, fügen wir diese als Parameter zu der Prozedur GespeichertenExportAnpassen <\/b>hinzu. Außerdem wollen wir dort noch den Namen des gespeicherten Exports hinzufügen, damit wir die Prozedur flexibel nutzen können.<\/p>\n
Das Ergebnis sehen wir in Listing 2. Die Prozedur erwartet die folgenden Parameter:<\/p>\n
Public Sub <\/span>GespeichertenExportAnpassen(strSpecification As String<\/span>, strPath As String<\/span>, strAccessObject As String<\/span>)\r\n Dim <\/span>objSpecification As <\/span>ImportExportSpecification\r\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>objNode_ImportExportSpecification As <\/span>MSXML2.IXMLDOMNode\r\n Dim <\/span>objNode_ExportPDF As <\/span>MSXML2.IXMLDOMNode\r\n Dim <\/span>objAttribute_Path As <\/span>MSXML2.IXMLDOMAttribute\r\n Dim <\/span>objAttribute_AccessObject As <\/span>MSXML2.IXMLDOMAttribute\r\n Dim <\/span>objAttribute_UseISO19005_1 As <\/span>MSXML2.IXMLDOMAttribute\r\n \r\n Set<\/span> objSpecification = CurrentProject.ImportExportSpecifications(strSpecification)\r\n \r\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument\r\n objXML.loadXML objSpecification.XML\r\n Set<\/span> objNode_ImportExportSpecification = objXML.selectSingleNode(\"ImportExportSpecification\")\r\n \r\n Set<\/span> objAttribute_Path = objNode_ImportExportSpecification.Attributes.getNamedItem(\"Path\")\r\n objAttribute_Path.nodeTypedValue = strPath\r\n \r\n Set<\/span> objNode_ExportPDF = objNode_ImportExportSpecification.selectSingleNode(\"\/\/ExportPDF\")\r\n \r\n Set<\/span> objAttribute_AccessObject = objNode_ExportPDF.Attributes.getNamedItem(\"AccessObject\")\r\n objAttribute_AccessObject.nodeTypedValue = strAccessObject\r\n \r\n Set<\/span> objAttribute_UseISO19005_1 = objNode_ExportPDF.Attributes.getNamedItem(\"UseISO19005_1\")\r\n If <\/span>objAttribute_UseISO19005_1 Is Nothing Then<\/span>\r\n Set<\/span> objAttribute_UseISO19005_1 = objXML.createAttribute(\"UseISO19005_1\")\r\n objNode_ExportPDF.Attributes.setNamedItem objAttribute_UseISO19005_1\r\n End If<\/span>\r\n objAttribute_UseISO19005_1.nodeTypedValue = \"true\"\r\n objSpecification.XML = objXML.XML\r\nEnd Sub<\/span><\/pre>\nListing 2: Anpassen des gespeicherten Exports<\/span><\/b><\/p>\n\n- strSpezification<\/b>: Name der Spezifikation wie zuvor festgelegt<\/li>\n
- strPath<\/b>: Pfad der zu erstellenden Datei<\/li>\n
- strAccessObject<\/b>: Name des zu exportierenden Elements, hier der Name des Berichts<\/li>\n<\/ul>\n
In der Prozedur deklarieren wir ein Objekt des Typs ImportExportSpecification <\/b>sowie ein XML-Dokument mit dem Typ MSXML2.DOMDocument<\/b>.<\/p>\n
Außerdem benötigen wir ein paar Variablen für Node<\/b>– und Attribute<\/b>-Elemente. Mit den Node<\/b>-Variablen referenzieren wir die eigentlichen Elemente, mit den Attribute<\/b>-Variablen die innerhalb der Elemente angegebenen Attribute.<\/p>\n
Im ersten Schritt referenzieren wir über die Auflistung ImportExportSpecifications <\/b>des Objekts CurrentProject <\/b>den mit strSpezification <\/b>übergebenen gespeicherten Export.<\/p>\n
Dann erstellen wir das DOMDocument<\/b>-Objekt und füllen es über die loadXML<\/b>-Methode mit dem XML-Inhalt der Spezifikation.<\/p>\n
Über die selectSingleNode<\/b>-Methode referenzieren wir das Element ImportExportSpecification<\/b> mit der Variablen objNode_ImportExportSpecification<\/b>. Daraus holen wir uns mit Attributes.getNamedItem(„Path“) <\/b>das Attribut namens Path<\/b> und referenzieren es mit objAttribute_Path<\/b>.<\/p>\n
Den Wert dieses Attributes passen wir über die Eigenschaft nodeTypedValue <\/b>auf den Wert aus dem Parameter strPath <\/b>an.<\/p>\n
Danach widmen wir uns dem Unterelement ExportPDF<\/b>, das wir mit der Variablen objNode_ExportPDF <\/b>erfassen. Sein Attribut AccessObject<\/b> enthält den Namen des zu im- oder exportierenden Access-Objekts. Dieses Attribut referenzieren wir mit der Objektvariablen objAttribute_AccessObject <\/b>und stellen seinen Wert über die Eigenschaft nodeTypedValue <\/b>auf den Wert aus strAccessObject <\/b>ein.<\/p>\n
Schließlich fehlt, dass wir sicherstellen, dass das Objekt im Format PDF\/A-3 exportiert wird. Weiter oben haben wir diese Einstellung bereits beim Erstellen der Spezifikation über die Benutzeroberfläche vorgenommen, aber wir haben dort auch angemerkt, dass wir diese Eigenschaft programmatisch setzen können.<\/p>\n
Wenn wir diese nicht im Dialog eingestellt haben, liegt das Attribut UseISO19005_1 <\/b>normalerweise einfach nicht vor, statt den Wert false <\/b>zu enthalten.<\/p>\n
Also prüfen wir zunächst, ob das Objekt vorhanden ist. Dazu referenzieren wir es über die Attributes.getNamedItem<\/b>-Funktion mit dem Wert UseISO19005_1 <\/b>als Parameter. Danach prüfen wir durch den Operator Is Nothing<\/b>, ob das so gefüllte Objekt objAttribute_UseISO19005_1 <\/b>vorhanden ist. Ist das nicht der Fall, erstellen wir es mit der createAttribute<\/b>-Methode des DOMDocument<\/b>-Objekts aus objXML<\/b> und fügen es der Auflistung Attributes <\/b>des Objekts aus objNode_ExportPDF <\/b>hinzu.<\/p>\n
Danach ist sichergestellt, dass das Attribut vorhanden ist und wir können es auf den Wert true <\/b>einstellen.<\/p>\n
Schließlich weisen wir den Wert der Eigenschaft XML <\/b>des DOMDocument<\/b>-Objekts der gleichnamigen Eigenschaft von objSpecification <\/b>zu, wodurch die geänderte Spezifikation gespeichert wird. <\/p>\n
Einen Testaufruf können wir nun über die folgende Prozedur starten:<\/p>\n
Public Sub <\/span>Test_GespeichertenExportAnpassen()\r\n Dim <\/span>strSpezifikation As String<\/span>\r\n Dim <\/span>strPfad As String<\/span>\r\n Dim <\/span>strBericht As String<\/span>\r\n strSpezifikation = \"Export PDF\/A-3\"\r\n strPfad = CurrentProject.Path & \"\\Artikel_PDFA3.pdf\"\r\n strBericht = \"rptArtikel\"\r\n Call<\/span> GespeichertenExportAnpassen(strSpezifikation, _\r\n strPfad, strBericht)\r\nEnd Sub<\/span><\/pre>\nDanach sollte der Inhalt der XML-Eigenschaft wie gewünscht aussehen.<\/p>\n
Aufruf der Prozedur zum Anpassen des gespeicherten Exports<\/h2>\n
Diese Prozedur können wir nun so aufrufen, nachdem wir den Bericht geöffnet haben (sofern dieser gefiltert werden soll) und bevor wir den gespeicherten Export mit der Methode RunSaveImportExport <\/b>aufrufen. Das würde etwa wie folgt aussehen:<\/p>\nPublic Sub <\/span>GespeicherterExportGefiltert_PDFA3()\r\n Dim <\/span>strBericht As String<\/span>\r\n Dim <\/span>strPfad As String<\/span>\r\n Dim <\/span>strSpezifikation As String<\/span>\r\n strBericht = \"rptArtikel\"\r\n strPfad = CurrentProject.Path & \"\\\" _\r\n & strBericht & \".pdf\"\r\n DoCmd.OpenReport strBericht, acViewPreview, , _\r\n \"ArtikelID <= 15\"\r\n strSpezifikation = \"Export PDF\/A-3\"\r\n strPfad = CurrentProject.Path & \"\\Artikel_PDFA3.pdf\"\r\n Call<\/span> GespeichertenExportAnpassen(strSpezifikation, _\r\n strPfad, strBericht)\r\n DoCmd.RunSavedImportExport strSpezifikation\r\n DoCmd.Close acReport, strBericht\r\nEnd Sub<\/span><\/pre>\nGespeicherten Export komplett selbst erstellen<\/h2>\n
Bleibt noch eine Optimierung: Wir sparen uns das Zusammenstellen des gespeicherten Exports über die Benutzeroberfläche und erstellen diesen direkt komplett selbst per VBA.<\/p>\n
Damit gehen wir dem Risiko aus dem Weg, dass der Benutzer einmal meint, er müsste die Datenbank entschlacken und die gespeicherten Importe und Exporte löschen.<\/p>\n
Außerdem kennen wir die Struktur des XML-Dokuments und können dieses nun leicht nachbauen.<\/p>\n
Dazu nutzen wir wieder die entsprechenden XML-Objekte. Die dazu benötigte Prozedur finden wir in Listing 3. Die Prozedur erwartet wieder die gleichen Parameter. Sie erstellt ein DOMDocument<\/b>-Objekt und fügt diesem die übliche erste Zeile hinzu:<\/p>\nPublic Sub <\/span>GespeichertenExportErstellen(strSpezification As String<\/span>, strPath As String<\/span>, strAccessObject As String<\/span>)\r\n Dim <\/span>objSpecification As <\/span>ImportExportSpecification\r\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>objNode_ImportExportSpecification As <\/span>MSXML2.IXMLDOMNode, objNode_ExportPDF As <\/span>MSXML2.IXMLDOMNode\r\n Dim <\/span>objAttribute_Path As <\/span>MSXML2.IXMLDOMAttribute, objAttribute_AccessObject As <\/span>MSXML2.IXMLDOMAttribute\r\n Dim <\/span>objAttribute_ObjectType As <\/span>MSXML2.IXMLDOMAttribute, objAttribute_AutoStart As <\/span>MSXML2.IXMLDOMAttribute\r\n Dim <\/span>objAttribute_Quality As <\/span>MSXML2.IXMLDOMAttribute, objAttribute_UseISO19005_1 As <\/span>MSXML2.IXMLDOMAttribute\r\n \r\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument\r\n objXML.appendChild objXML.createProcessingInstruction(\"xml\", \"version=''1.0''\")\r\n \r\n Set<\/span> objNode_ImportExportSpecification = objXML.createNode(NODE_ELEMENT, \"ImportExportSpecification\", _\r\n \"urn:www.microsoft.com\/office\/access\/imexspec\")\r\n objXML.appendChild objNode_ImportExportSpecification\r\n \r\n Set<\/span> objAttribute_Path = objXML.createAttribute(\"Path\")\r\n objAttribute_Path.nodeTypedValue = strPath\r\n objNode_ImportExportSpecification.Attributes.setNamedItem objAttribute_Path\r\n \r\n Set<\/span> objNode_ExportPDF = objXML.createNode(NODE_ELEMENT, \"ExportPDF\", \"urn:www.microsoft.com\/office\/access\/imexspec\")\r\n objNode_ImportExportSpecification.appendChild objNode_ExportPDF\r\n \r\n Set<\/span> objAttribute_AccessObject = objXML.createAttribute(\"AccessObject\")\r\n objAttribute_AccessObject.nodeTypedValue = strAccessObject\r\n objNode_ExportPDF.Attributes.setNamedItem objAttribute_AccessObject\r\n \r\n Set<\/span> objAttribute_ObjectType = objXML.createAttribute(\"ObjectType\")\r\n objAttribute_ObjectType.nodeTypedValue = \"Report\"\r\n objNode_ExportPDF.Attributes.setNamedItem objAttribute_ObjectType\r\n \r\n Set<\/span> objAttribute_AutoStart = objXML.createAttribute(\"AutoStart\")\r\n objAttribute_AutoStart.nodeTypedValue = \"false\"\r\n objNode_ExportPDF.Attributes.setNamedItem objAttribute_AutoStart\r\n \r\n Set<\/span> objAttribute_Quality = objXML.createAttribute(\"Quality\")\r\n objAttribute_Quality.nodeTypedValue = \"screen\"\r\n objNode_ExportPDF.Attributes.setNamedItem objAttribute_Quality\r\n \r\n Set<\/span> objAttribute_UseISO19005_1 = objXML.createAttribute(\"UseISO19005_1\")\r\n objNode_ExportPDF.Attributes.setNamedItem objAttribute_UseISO19005_1\r\n objAttribute_UseISO19005_1.nodeTypedValue = \"true\"\r\n \r\n On Error Resume Next<\/span>\r\n CurrentProject.ImportExportSpecifications.Item(strSpecification).Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> objSpecification = CurrentProject.ImportExportSpecifications.Add(strSpecification, objXML.XML)\r\nEnd Sub<\/span><\/pre>\nListing 3: Gespeicherten Export vollständig per VBA erzeugen<\/span><\/b><\/p>\n<?xml version=\"1.0\"?><\/pre>\nDann erstellt sie das ImportExportSpecification<\/b>-Element und weist diesem den entsprechenden Namespace zu, bevor es dieses Element an das DOMDocument <\/b>anhängt. Danach erstellt sie das Attribut Path <\/b>und weist den Pfad aus strPath <\/b>zu.<\/p>\n
Danach wird das Element ExportPDF <\/b>eingefügt, wieder mit dem gleichen Namespace. Die folgenden Sätze von jeweils drei Anweisungen erstellen das jeweilige Attribut, weisen diesem den entsprechenden Wert zu und hängen das Attribut an das Element an.<\/p>\n
Danach ist das XML-Dokument vollständig. Wir löschen nun bei deaktivierter Fehlerbehandlung eine eventuell vorhandene Import\/Export-Spezifikation mit dem Namen aus strSpecification<\/b>. Dazu nutzen wir die Delete<\/b>-Methode für das entsprechende Item<\/b>-Element der ImportExportSpecifications<\/b>-Auflistung.<\/p>\n
Danach erstellen wir dieses neu. Dazu rufen wir die Add<\/b>-Methode der ImportExportSpecifications<\/b>-Auflistung auf und übergeben dieser als ersten Parameter den Namen der zu erstellenden Spezifikation aus der Variablen strSpecification <\/b>und als zweiten den XML-Code aus objXML.XML<\/b>.<\/p>\n
Um diese Prozedur zu testen, verwenden wir die Routine aus Listing 4. Diese definiert wieder den Bericht, den Pfad der zu erstellenden Datei und den Namen der zu erstellenden Spezifikation.<\/p>\n
Public Sub <\/span>Test_GespeichertenExportErstellen()\r\n Dim <\/span>strSpezifikation As String<\/span>\r\n Dim <\/span>strPfad As String<\/span>\r\n Dim <\/span>strBericht As String<\/span>\r\n strBericht = \"rptArtikel\"\r\n strPfad = CurrentProject.Path & \"\\\" & strBericht & \"_PDFA3.pdf\"\r\n strSpezifikation = \"Export PDF\/A-3\"\r\n DoCmd.OpenReport strBericht, acViewPreview, , \"ArtikelID <= 15\"\r\n Call<\/span> GespeichertenExportErstellen(strSpezifikation, strPfad, strBericht)\r\n DoCmd.RunSavedImportExport strSpezifikation\r\n DoCmd.Close acReport, strBericht\r\nEnd Sub<\/span><\/pre>\nListing 4: Testen des Erstellens eines gespeicherten Exports <\/span><\/b><\/p>\nDann öffnet sie den gegebenenfalls zu filternden Bericht und ruft die Prozedur GespeichertenExportErstellen<\/b> auf. Diese legt den gespeicherten Export vollständig neu an und löscht einen gegebenenfalls bereits vorhandenen Export gleichen Namens.<\/p>\n
Dann führt die aufrufende Prozedur den Export mit der Methode RunSavedImportExport <\/b>auf und schließt den Bericht wieder.<\/p>\nZusammenfassung und Ausblick<\/h2>\n
Die DoCmd.OutputTo<\/b>-Methode in Microsoft Access bietet eine einfache Möglichkeit, Berichte als PDF-Dokumente zu exportieren, jedoch fehlen ihr gewisse Funktionen, wie das direkte Filtern von Berichten vor dem Export.<\/p>\n
Alternativlösungen, wie das Öffnen des Berichts in der Seitenansicht vor dem Export oder das Arbeiten mit gespeicherten Exportschritten, erweitern die Möglichkeiten und bieten Wege zur Erstellung von PDF\/A-3-kompatiblen Dokumenten. Dies ist besonders nützlich für rechtlich verbindliche Dokumente, beispielsweise für ZUGFeRD-Rechnungen.Mit etwas VBA-Programmierung lassen sich gespeicherte Exporte flexibel anpassen oder neu erstellen, was die Verwaltung und Automatisierung vereinfacht.<\/p>\n
Zukünftig könnte eine tiefere Integration und weitere Anpassung dieser Exporte zusätzliche Möglichkeiten eröffnen, zum Beispiel für Unternehmen, die regelmäßig Dokumentationen im PDF\/A-Standard aus Access exportieren möchten.<\/p>\n
Downloads zu diesem Beitrag<\/h2>\n
Enthaltene Beispieldateien:<\/p>\n
PDFErstellenVBA.accdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"Im Beitrag „PDF erstellen mit Access im Detail“ (www.access-im-unternehmen.de\/1523) haben wir uns bereits angesehen, wie wir PDF-Dokumente über die Benutzeroberfläche erstellen können. Typischerweise möchte man einem Benutzer allerdings nicht die Aufgabe überlassen, einen Bericht zu öffnen und dann die entsprechenden Schaltflächen im Ribbon aufzurufen, um den Bericht als PDF-Dokument zu speichern. Dazu stellen wir einen eigenen Button zur Verfügung, mit dem wir den Bericht direkt als PDF speichern. Es fehlt also nur noch der passende VBA-Befehl. In diesem Beitrag schauen wir uns an, wie dieser lautet und welche Alternativen es gibt. Außerdem werfen wir einen Blick darauf, wie wir Dokumente im PDF\/A-Format erzeugen. Während wir dazu über die Benutzerfläche lediglich eine Option im Dateiauswahl-Dialog aktivieren mussten, ist der Aufwand unter VBA bereits deutlich höher. Aber immerhin ist dieser nur einmalig durchzuführen, weshalb wir gern darauf eingehen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662024,66062024,44000025],"tags":[],"class_list":["post-55001524","post","type-post","status-publish","format-standard","hentry","category-662024","category-66062024","category-VBA_und_Programmiertechniken"],"yoast_head":"\n
PDF per VBA erstellen im Detail - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"PDF per VBA erstellen im Detail\" \/>\n<meta property=\"og:description\" content=\"Im Beitrag "PDF erstellen mit Access im Detail" (www.access-im-unternehmen.de\/1523) haben wir uns bereits angesehen, wie wir PDF-Dokumente über die Benutzeroberfläche erstellen können. Typischerweise möchte man einem Benutzer allerdings nicht die Aufgabe überlassen, einen Bericht zu öffnen und dann die entsprechenden Schaltflächen im Ribbon aufzurufen, um den Bericht als PDF-Dokument zu speichern. Dazu stellen wir einen eigenen Button zur Verfügung, mit dem wir den Bericht direkt als PDF speichern. Es fehlt also nur noch der passende VBA-Befehl. In diesem Beitrag schauen wir uns an, wie dieser lautet und welche Alternativen es gibt. Außerdem werfen wir einen Blick darauf, wie wir Dokumente im PDF\/A-Format erzeugen. Während wir dazu über die Benutzerfläche lediglich eine Option im Dateiauswahl-Dialog aktivieren mussten, ist der Aufwand unter VBA bereits deutlich höher. Aber immerhin ist dieser nur einmalig durchzuführen, weshalb wir gern darauf eingehen.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2024-11-06T18:59:46+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg02.met.vgwort.de\/na\/5842addb4ee84cc987c68fb8d493b190\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"19\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"PDF per VBA erstellen im Detail\",\"datePublished\":\"2024-11-06T18:59:46+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/\"},\"wordCount\":3016,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/5842addb4ee84cc987c68fb8d493b190\",\"articleSection\":[\"2024\",\"6\\\/2024\",\"VBA und Programmiertechniken\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/\",\"name\":\"PDF per VBA erstellen im Detail - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/5842addb4ee84cc987c68fb8d493b190\",\"datePublished\":\"2024-11-06T18:59:46+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/5842addb4ee84cc987c68fb8d493b190\",\"contentUrl\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/5842addb4ee84cc987c68fb8d493b190\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/PDF_per_VBA_erstellen_im_Detail\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"PDF per VBA erstellen im Detail\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"PDF per VBA erstellen im Detail - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/","og_locale":"de_DE","og_type":"article","og_title":"PDF per VBA erstellen im Detail","og_description":"Im Beitrag \"PDF erstellen mit Access im Detail\" (www.access-im-unternehmen.de\/1523) haben wir uns bereits angesehen, wie wir PDF-Dokumente über die Benutzeroberfläche erstellen können. Typischerweise möchte man einem Benutzer allerdings nicht die Aufgabe überlassen, einen Bericht zu öffnen und dann die entsprechenden Schaltflächen im Ribbon aufzurufen, um den Bericht als PDF-Dokument zu speichern. Dazu stellen wir einen eigenen Button zur Verfügung, mit dem wir den Bericht direkt als PDF speichern. Es fehlt also nur noch der passende VBA-Befehl. In diesem Beitrag schauen wir uns an, wie dieser lautet und welche Alternativen es gibt. Außerdem werfen wir einen Blick darauf, wie wir Dokumente im PDF\/A-Format erzeugen. Während wir dazu über die Benutzerfläche lediglich eine Option im Dateiauswahl-Dialog aktivieren mussten, ist der Aufwand unter VBA bereits deutlich höher. Aber immerhin ist dieser nur einmalig durchzuführen, weshalb wir gern darauf eingehen.","og_url":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/","og_site_name":"Access im Unternehmen","article_published_time":"2024-11-06T18:59:46+00:00","og_image":[{"url":"http:\/\/vg02.met.vgwort.de\/na\/5842addb4ee84cc987c68fb8d493b190","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"19\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"PDF per VBA erstellen im Detail","datePublished":"2024-11-06T18:59:46+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/"},"wordCount":3016,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/#primaryimage"},"thumbnailUrl":"http:\/\/vg02.met.vgwort.de\/na\/5842addb4ee84cc987c68fb8d493b190","articleSection":["2024","6\/2024","VBA und Programmiertechniken"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/","url":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/","name":"PDF per VBA erstellen im Detail - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/#primaryimage"},"thumbnailUrl":"http:\/\/vg02.met.vgwort.de\/na\/5842addb4ee84cc987c68fb8d493b190","datePublished":"2024-11-06T18:59:46+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/#primaryimage","url":"http:\/\/vg02.met.vgwort.de\/na\/5842addb4ee84cc987c68fb8d493b190","contentUrl":"http:\/\/vg02.met.vgwort.de\/na\/5842addb4ee84cc987c68fb8d493b190"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/PDF_per_VBA_erstellen_im_Detail\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"PDF per VBA erstellen im Detail"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55001524","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55001524"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55001524\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55001524"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55001524"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55001524"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}