Member
Beiträge: 8
| Ja sauber, das geht doch schon stark in die richtige Richtung.
Aber ich habe noch 2 Probleme:
1.) Er filtert zwar die Informationen im Bericht die ich haben will (gemäß der Datensatzherkunft "qAbfr") allerdings beschränkt er im sich im PDF nicht auf den einen "Plan" mit zugehörigen Informationen, sondern erstellt erst das PDF Plan1 inkl. aller Daten, dann Plan2 wieder mit allen Daten, usw. - Frage: Wie filter ich das jetzt auch noch am besten?
2.) Trotz dessen, dass der Bericht im Querformat ist, exportiert er ihn in der Schleife im Hochformat, wenn ich es manuell mache passt das alles mit dem Querformat. Woran könnte das liegen?
---
Private Sub btn_Export_Click()
Dim rs As Recordset
Dim strReport As String
Dim strKey As String
strReport = "bAbfr"
Set rs = CurrentDb.OpenRecordset("qPlan", dbOpenDynaset)
With rs
Do While Not .EOF
strKey = !Plan
Path = "D:\Datenbankgefummel\Doku\" & strKey & ".pdf"
'der Pfad mit dem Plan als Dateinamen.
DoCmd.OpenReport strReport, acViewPreview, _
"Plan = " & strKey
DoCmd.OutputTo acReport, strReport, "PDF Format", _
Path, False, ""
DoCmd.Close acReport, strReport
.MoveNext
Loop
End With
End Sub |
