Guten Morgen,
wir haben ein Problem, das unsere VBA-Anweisung zum speichern eines Berichtes in einzelne PDF's (gruppiert nach Lieferantennummer) extrem langsam läuft.
z.b. 100 Datensätze in 30 einzelne PDF's dauert rund 5 Minuten.
hier unser Code in Access 2019:
Private Sub Befehl1_Click()
With CurrentDb.OpenRecordset("Ergebnis_Bericht_Fax")
Do While Not .EOF
DoCmd.OpenReport "Ergebnis_Bericht_Fax", acViewPreview, , _
"[LfNr] = " & ![LfNr], acHidden
DoCmd.OutputTo acOutputReport, "Ergebnis_Bericht_Fax", acFormatPDF _
, "L:\Daten\Labor\Traechtigkeit\Export\Fax\Fax-" & Format(Date, "dd.mm.yyyy") & "-" & !LfNr & ".pdf"
DoCmd.Close acReport, "Ergebnis_Bericht_Fax"
.MoveNext
Loop
End With
End Sub
liegt die lange Laufzeit am Code selbst ? kann man diesen ggf. Optimieren ?
Gruß
Steffen
Hallo,
siehe auch:
https://www.ms-office-forum.net/forum/showthread.php?t=373768