Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Mehrere geöffnete Berichte in 1 PDF drucken und speichern

Begonnen von ToBu, Dezember 21, 2023, 15:38:52

⏪ vorheriges - nächstes ⏩

ToBu

Hallo miteinander,
ich möchte gerne 7 Berichte, die einzeln als PDFs gedruckt und in einem vorgegebenem Pfad gespeichert werden, aneinander gereiht in 1 PDF Datei zusammengefasst entsprechend speichern.
Leider funktioniert folgende Prozedur nicht!
Kann mir jemand wieder auf die Sprünge helfen?
Vielen Dank für eure Beiträge!

Gruß ToBu:
Private Sub PDF_Technologies_Companies_Click()
Dim PfadNamme As String
Dim pdfPfadName As String
Dim pdfDateiName As String
Dim TabName As String
Dim Pfad As String

       TabName = "tab_Ort_Pfad"
       DoCmd.OpenTable TabName, acViewPreview
       Pfad = Ordner
       DoCmd.Close acTable, TabName, acSaveNo
       
         pdfDateiName = "Guide_complete" & ".pdf"
       PfadName = Pfad & pdfDateiName
       reportName1 = "ber_Deckblatt_Broschüre_TTE"
       DoCmd.OpenReport reportName1, acViewPreview
       reportName2 = "ber_aktuelle_Länder"
       DoCmd.OpenReport reportName2, acViewPreview
       
       DoCmd.OutputTo acOutputReport, [reportName1] & [reportName2], acFormatPDF, PfadName
       DoCmd.Close acReport, reportName1, acSaveNo
       DoCmd.Close acReport, reportName2, acSaveNo
         
       Stop

ebs17

Denkbar wären folgende Abläufe:
1) Die Berichte als Unterberichte in einem Gesamtbericht einfügen und damit das Dokument erzeugen.
2) Die erstellten Einzel-PDF's zu einem Dokument zusammenfassen. Entsprechende Aktionen sind möglich über Acrobat oder über Programme Dritter, z.B. pdftk
Mit freundlichem Glück Auf!

Eberhard

ToBu

Vielen Dank, Eberhard, für deine beiden Lösungsvorschläge! Ich werde beide mal probieren. Ich hatte allerdings gehofft, dass es über einen VBA Code möglich wäre. Mal schauen, wie mächtig der Bericht mit 6 Unterberichten wird.
Das PDF Tool scheint mir auuch sehr interessant! Werde ich später auch mal testen. Kann man das auch mit in eine Ereignisprozedur einbinden (Shell-Funktion)?
Gruß ToBu

ebs17

Ja, das Tool bietet Steuerung per Kommandozeile, und diese kann man mit Shell aus VBA heraus aufrufen.
Mit freundlichem Glück Auf!

Eberhard

ToBu

Wie lauten denn da die entsprechenden Code Zeilen? Ich bin wieder einmal nicht fit u.a. in der Shell Funktion, und wie wird gesteuert? Können auch fortlaufende Seitenzahlen mit eingebunden werden? Es sind ja verschiedene Berichte hintereinander, die jeweils mit Seite 1 beginnen.
Gruß ToBu

ebs17

#5
Spätestens bei der Beeinflussung von Seitenzahlen wird kein Freewareprodukt mehr mitgehen.

Ich würde mich da eher auf den sofortigen Gesamtbericht konzentrieren, oder alternativ auf ein Worddokument, das aus einer Kombination von Vorlage, Textbausteinen und individuellen Einfügungen zusammengezaubert wird.
Es wird hilfreich sein, sich seiner Maximalforderungen bewusst zu sein und einen Weg zu gehen, der diese ermöglicht.
Mit freundlichem Glück Auf!

Eberhard

ToBu

Vielen Dank, Eberhard, für deine Antworten.
Ich habe nun 1 Hauptbericht mit 3 Unterberichten zusammengeführt. Dabei ergeben sich folgende Probleme:
1. Weitere Unterberichte lassen sich leider nicht hinzufügen.
2. Die im Hauptbericht eigefügten Unterberichte zeigen leider nur auf deren 1. Seite ihren Seitenkopf, aber auf keiner weiteren. Deren Seitenfuß wird gar nicht wiedergegeben, obwohl ich in den Eigenschaften der eingefügten U-Berichte das Kriterium Seitenkopf und Seitenfuß sichtbar auf "Ja" gestellt habe.
Kannst du mir bitte weiterhelfen?
Vielen Dank!
Gruß ToBu

MzKlMu

#7
Hallo,
Zitatzeigen leider nur auf deren 1. Seite ihren Seitenkopf
Da irrst Du. In Unterberichten kann man keine Seitkopf/Fuß verwenden bzw. anzeigen.
Ich glaube auch nicht, dass es für Dein Problem eine Access Lösung gibt. Das größte Problem wird die Seitenzahlanzeige des Unterberichts sein, die ja immer von 1 beginnen soll.
Gruß Klaus

ToBu

Hallo Klaus,
ich habe in meinem Hauptbericht 3 U-Berichte im Detailbereich durch 3 Seitenüberträge getrennt eingebettet. Deren 1. Seite beinhaltet tatsächlich die Informationen des entsprechenden Seitenkopfes. Das ist schon mal gut! Aber deren Seitenfuß wird nicht wiedergegeben und damit auch nicht die fortlaufende Seitenzahl (macht für mich auch keinen Sinn!). Aber die restlichen Infos der Seitenfüße sollten analog zum 1. Seitenkopf sichtbar sein. Sonst machte es keinen Sinn, im Eigenschaftsbereich zwischen anzeigen und nicht anzeigen zu wählen, - und zwar für Seitenkopf und -fuß gemeinsam auszuwählen.
Das Problem mit einer fortlaufenden Seitenzahl des Gesamtberichtes ließe sich ja in den PDFs (lt. Eberhard allerdings nicht kostenfrei) lösen.
Wie bekomme ich denn mehr als 3 UB im HB unter?
Muss man z.B. 2 Hauptberichte mit jeweils 3 UB in einem übergeordneten HB einbetten? Geht das?
Gruß ToBu

MzKlMu

Hallo,
Du kannst es drehen und wenden wie Du willst, ein Unterbericht kann keine Seitenköpfe/füße anzeigen.

Ich kann Dir dazu nichts weiter sagen.
Gruß Klaus

ebs17

ZitatWeitere Unterberichte lassen sich leider nicht hinzufügen.
Verringere die Höhe der UB-Container (je 1 cm reicht), und stelle auf automatisch vergrößern.
Mit freundlichem Glück Auf!

Eberhard