ich erstelle mit einer Excel Datei PDF's, dass ganze funktioniert beim ersten Durchgang ganz gut, beim zweiten kommt dann folgende Fehlermeldung "Der Remote Server Computer existiert nicht oder ist nicht verfügbar.
Der Debugger zeigt mir den Fehler bei Documents.Open D1
With Doc1
If CheckBox39.Value = True Then
a = a + 1
Documents.Open D1
Ladebalken2.Label.Width = 8
Ladebalken2.Caption = "PDF wird erstellt... " & a & "/" & y
Ladebalken2.UnderCaption.Caption = "Erstelle PDF... "
Doc1.ExportAsFixedFormat OutputFileName:=Worksheets("Speicherpfade").Range("B59").Value & "\" & Worksheets("Übersicht").Range("C111").Value & "_" & Worksheets("Übersicht").Range("B111").Value & "_" & Worksheets("Übersicht").Range("M111").Value & "Anschreiben" & ".pdf", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
Doc1.Close savechanges:=False
Ladebalken2.Label.Width = b * a
End If
End With
Gruß Raptor