Habe das Problem mittlerweile selbst in den Griff bekommen:

Sub Generate_PDS_QTY_All_Suppliers()
Dim rcsSupName As Recordset

Set rcsSupName = CurrentDb.OpenRecordset("qrySupplierContainerOrderQty")
Do Until rcsSupName.EOF

DoCmd.OpenReport "rptHG_PDS", acViewPreview, "", "[qryHG_PDS_Report].[SummevonposOrderQty]>0 and [tblHGPDS].[Supplier]='" & rcsSupName.Fields("supNameShort").Value & "'", acWindowNormal
If Dir(p_cstrPfadAbtImport & "\Saison 2014\Orders\" & rcsSupName.Fields("supNameShort").Value & "\", vbDirectory) = "" Then
    MkDir (p_cstrPfadAbtImport & "\Saison 2014\Orders\" & rcsSupName.Fields("supNameShort").Value & "\")
    Else
    End If
    If Dir(p_cstrPfadAbtImport & "\Saison 2014\Orders\" & rcsSupName.Fields("supNameShort").Value & "\PDS\", vbDirectory) = "" Then
    MkDir (p_cstrPfadAbtImport & "\Saison 2014\Orders\" & rcsSupName.Fields("supNameShort").Value & "\PDS\")
    Else
    End If
    
    If Dir(p_cstrPfadAbtImport & "\Saison 2014\OrdersQC\" & rcsSupName.Fields("supNameShort").Value & "\", vbDirectory) = "" Then
    MkDir (p_cstrPfadAbtImport & "\Saison 2014\OrdersQC\" & rcsSupName.Fields("supNameShort").Value & "\")
    Else
    End If
    If Dir(p_cstrPfadAbtImport & "\Saison 2014\OrdersQC\" & rcsSupName.Fields("supNameShort").Value & "\PDS\", vbDirectory) = "" Then
    MkDir (p_cstrPfadAbtImport & "\Saison 2014\OrdersQC\" & rcsSupName.Fields("supNameShort").Value & "\PDS\")
    Else
    End If
    
    DoCmd.OutputTo acOutputReport, "rptHG_PDS", "PDFFormat(*.pdf)", p_cstrPfadAbtImport & "\Saison 2014\Orders\" & rcsSupName.Fields("supNameShort").Value & "\PDS\" & Year(Now()) & Format(Month(Now()), "00") & Format(Day(Now()), "00") & "_" & rcsSupName.Fields("supNameShort").Value & "_Order_2014_Items_PDS.pdf", True, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputReport, "rptHG_PDS", "PDFFormat(*.pdf)", p_cstrPfadAbtImport & "\Saison 2014\OrdersQC\" & rcsSupName.Fields("supNameShort").Value & "\PDS\" & Year(Now()) & Format(Month(Now()), "00") & Format(Day(Now()), "00") & "_" & rcsSupName.Fields("supNameShort").Value & "_Order_2014_Items_PDS.pdf", True, "", , acExportQualityPrint
    DoCmd.Close acReport, "rptHG_PDS"
rcsSupName.MoveNext
Loop

End Sub