PDF aus Excel erstellen
wolfgang
Beim Erstellen einer PDF Datei aus Excel kann ich die erzeugte PDF Datei nicht öffen. Das
System meldet einen Fehler.
Hier der VBA Code:
Const cstrPath As String = "D:\"
Const cstrPrinter = "Adobe PDF auf Ne10:"
Sub x()
Dim wsSrc As Worksheet
Dim strPath As String
strPath = cstrPath & "GLall.pdf"
Set wsSrc = ActiveWorkbook.Worksheets("Basis")
ActiveSheet.PrintOut copies:=1, ActivePrinter:=cstrPrinter, collate:=True, printtofile:=False, _
PrToFileName:=strPath
End Sub