PDF-Druck "Stapel" > Optimierung?
23.02.2023 15:57:47
Michael
ich würde gerne untenstehenden Code in zweierlei Hinsichten optimieren;
1. In TB2 "Datenbank" habe ich versch. Werte (1-10) in Spalte A, durch welche ich gerne die Zuordnung der Ablageordner steuern würde. 1> G:, 2> A: usw.
2. Das Makro beschleunigen! Die PDF's werden aktuell superschnell erstellt und abgelegt (ca. 8-10 Stk./min, je Ordner), jedoch hängt die Abarbeitung in der Arbeitsmappe um ca. 20-30 Files zurück, bis dann auch teilweise der interne Speicher die weiße Fahne schwenkt. Zur Info: Die Datenbank hat aktuell 8000 Einträge, welche als PDF gespeichert werden müssen!
Wäre schön wenn mir hierzu jemand ein paar Tipps geben könnten.
Hierfür schonmal vielen Dank vorab.
Viele Grüße und einen schönen Nachmittag.
Sub Stapelverarbeitung()
Dim TB1 As Worksheet
Dim TB2 As Worksheet
Dim TB3 As Worksheet
Dim TB4 As Worksheet
Dim LR2 As Integer
Dim i As Integer
Dim SP As Integer
Dim ZRNG As Range
Set TB1 = Sheets("Test1")
Set TB2 = Sheets("Datenbank")
Set TB3 = Sheets("Test2")
Set TB4 = Sheets("Test3")
Set ZRNG = TB1.Range("AJ11")
SP = 4
LR2 = TB2.Cells(TB2.Rows.Count, SP).End(xlUp).Row
Start = Application.InputBox("Bitte Startzeile eingeben", "Startzeile", 2)
For i = Start To LR2
ZRNG = TB2.Cells(i, SP)
ActiveWorkbook.Save
Debug.Print i, ZRNG
TB1.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\40644_" & _
TB1.Range("AJ11") & "_" & Format(Date, "YYYYMMDD"), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
TB3.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Test2\40644_" & _
TB1.Range("AJ11") & "_" & Format(Date, "YYYYMMDD"), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
TB4.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Test3\40644_" & _
TB1.Range("AJ11") & "_" & Format(Date, "YYYYMMDD"), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
Next
End Sub