April 18, 2021, 02:32:40

Neuigkeiten:

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


VBA-Anweisung für PDF Ausgabe extrem langsam

Begonnen von MPRBW, März 18, 2021, 11:02:30

⏪ vorheriges - nächstes ⏩

MPRBW

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