Office: (Office 2016) Bericht: Je Gruppe eine PDF erzeugen

Hallo,

ich möchte meinen gruppierten Bericht in einzelne PDF-Dateien je Gruppe abspeichern. Gruppiert wird nach SubSTDAufID aus tblSubSTD.

Ist das möglich? Ich habe da schon einige Ansätze die ich Inet gefunden habe getestet, aber leider ohne Erfolg

:)

 

Moin,
dazu musst du eine Schleife über die entsprechenden SubSTDAufIDs laufen lassen und in jedem Durchgang ein pdf erstellen.
maike

 

Danke,

soweit kam ich schon nach meiner Recherche. Da ich aber Anfänger bin und die Schleife etc. nicht verstehe kam ich leider nicht zum gewünschten Ergebnis.

Es wäre nett wenn du mir da etwas unter die Arme helfen könntest?

Nochmal zur Erklärung:
Ich habe einen Auftrag im Hauptformular und meine Positionen im Unterformular (diese werden in meinem Bericht gruppiert). Den Bericht öffne ich mit Bezug auf die Auf_ID aus meinem Hauptformular. Gruppiert werden aber meine Positionen SubSTDAufIDs. Und diese möchte ich als eigene einzelne PDFs abspeichern.

 

Dann beziehst du dich am besten auf die im Ufo angezeigten Daten.
Code (z.B. für einen Button) im Hauptformular:
Code:

maike

 

Ich verstehe jetzt nicht so ganz was ich damit anstellen soll..
Soll ich meinen Bericht umbauen und über deinen Code öffnen?

 

Ist das hier ein Lösungsansatz?

Dim sql as String
Dim db as Database
Dim rs as Recordset

sql = "SELECT CustomerID FROM Customers"
Set db = CurrentDB
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)

Do Until rs.EOF
DoCmd.OpenReport "ReportName", acViewPreview,,"CustomerID = " &
rs!CustomerID
DoCmd.OutputTo
acOutputReport,"ReportName",[YourFormatOption],[YourFileName]
DoCmd.Close acReport,"ReportName"
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Set db = Nothing

 

Nein, wieso Bericht umbauen?
Im Prinzip reicht der Code so wie ich ihn oben gepostet habe, du willst ja nicht für alle Kunden in deiner Tabelle, sondern für die Positionen im Unterformular einzeln drucken, wenn ich dich richtig verstanden habe.
Bzw. speichern. Dazu ist der mittlere Teil in deinem Code richtig, der Bericht muss vorher geöffnet und danach geschlossen werden.
Code:

Damit sollte es funktionieren, die Stellvertreternamen natürlich durch die richtigen ersetzen.

maike

 

Hallo Maike,

du sagst ich soll den Bericht vor öffnen und danach schließen?
Machst du das nicht bereits in deinem Code?
Was genau ist mit dem "DeinUfoSteuerelement" gemeint?

Bisher habe ich meinen Bericht mit folgendem Code geöffnet:

DoCmd.OpenReport "BrcZertifikate", acViewPreview, , _
"[Auf_ID_f] = " & Me!Auf_ID

 

Ja.

Das ist das Control im Hauptform, wo das Ufo drinsteckt.

Dann kam der Gesamtbericht für den kompletten Auftrag dabei raus. Du willst aber ja Einzelberichte pro Position, also musst du als Kriterium jetzt die ID der Position angeben.
maike

 

Guten Morgen,

With Me.SubSTD_ID_f.Form.Recordset

Ich bekomme an dieser Stelle einen Fehler "Methode oder Datenobjekt nicht gefunden"


DoCmd.Outputto acOutputReport, "BrcZertifikate", acFormatPDF, "C:UsersPublicDesktop & "_" & .DeinIDFeld & ".pdf"

Hier bekommen ich folgende Fehlermeldung "Ungültiges Zeichen" bei "_"

 

Hallo
Fehlt da nicht ein "
DoCmd.Outputto acOutputReport, "BrcZertifikate", acFormatPDF, "C:UsersPublicDesktop" & "_" & .DeinIDFeld & ".pdf
?

 

Dank Lanz,

damit hab ich ein Problem behoben *Smilie

 

DeinIDFeld solltest du umbenennen in den richtigen Namen von deinem ID-Feld.
maike

 

Ich stehe auf dem Schlauch...

Folgenden Aufbau habe ich:

tblAuftrag
Auf_ID (Primärschlüssel)
.

tblSTDLag
SubSTDAufID (Primärschlüssel)
SubSTD_ID_f (Fremdschlüssel für Produkte)
Auf_ID_f (Fremdschlüssel für Aufträge)
.

tblfertSTD
fertSTDID (Primärschlüssel für Produkte)
.

Mir ist bewusst das die Bezeichnung für die Schlüssel falsch sind und dadurch irreführend sind. Ich habs vor Jahren bereits falsch aufgebaut.

Ich öffne mein Formular „Aufträge“ und habe dort die tblAuftrag als Datenherkunft für das Hauptformular. Im Unterformular habe ich die tblSTDLag und tblfertSTD als Datenherkunft für meine Produkte.
Aus dem Hauptformular heraus öffne ich meinen Bericht Zertifikate:
DoCmd.OpenReport "BrcZertifikate", acViewPreview, , _
"[Auf_ID_f] = " & Me!Auf_ID
Hier werden mir dann alle meine Positionen in Gruppen dargestellt.

Aber mit deinem Code will das ganze nicht funktioneren, bzw. weiß ich nicht welches IDFeld ich verwenden soll…

 

Hab' ich doch schon häufiger gesagt, imho nach SubSTDAufID.

Ansonsten lad das Ganze mal hoch. Abgespeckt auf das Problem, mit ein paar Dummy-Daten und - für mich zumindest - im Format .mdb
maike