Hallo,
ich habe im Netz ein VBA gefunden, das PDF's abspeichert.
Da aber der Speicherordner der Quellordner war, habe ich versucht das zu ändern..leider meckert er immer wieder bei dem Punkt "oDoc.SaveAs ExportFile, True" (424 Fehler)
Public Sub PlotPDF()
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
Dim oDrgDoc As DrawingDocument
Set oDrgDoc = ThisApplication.ActiveDocument
' Set reference to drawing print manager
Dim oDrgPrintMgr As DrawingPrintManager
Set oDrgPrintMgr = oDrgDoc.PrintManager
'Set the paper size , scale and orientation
oDrgPrintMgr.ScaleMode = kPrintBestFitScale
oDrgPrintMgr.PaperSize = kPaperSizeLetter
oDrgPrintMgr.PrintRange = kPrintAllSheets
oDrgPrintMgr.Orientation = kLandscapeOrientation
oDrgPrintMgr.AllColorsAsBlack = True
'Set the file name
Dim ExportFile As String
ExportFile = "\\ABCDE\" & Left$(oDrgDoc.DisplayName, Len(oDrgDoc.DisplayName) - 3) & "pdf"
oDoc.SaveAs ExportFile, True
End If
Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub
Was kann der Fehler sein?
Über eine Korrektur wäre ich sehr erfreut 
Und mit einer Erklärung noch viel mehr
Gruß
Starbuzz
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP