Endlich komme ich dazu auch noch ein wenig Code euch zu präsentieren:

Verbesserungsvorschläge sind willkommen. Auf jedenfall habe ich das getestet und damit 100 PDF's innert 40 Minuten generieren können.

    Private Declare PtrSafe Function GetWindowTextA Lib "user32" _
        (ByVal hWnd As LongPtr, ByVal lpString As String, ByVal nMaxCount As Long) As Long
    Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
    Private Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr

Public Function Speicher_unter_warten() As String
Dim strLCData As String
Dim lngSize As Long

lngSize = 255
strLCData = String(lngSize, vbNullChar)
t = Timer
Do                                                          '5 Sek warten
   GetWindowTextA GetForegroundWindow, strLCData, lngSize
   apiWindowText = Replace(strLCData, vbNullChar, "")

If InStr(apiWindowText, "Speichern unter") Then Exit Do
Loop Until (t + 120) < Timer
End Function