ich habe eine Frage zum direkten Umwandeln einer Excel-Datei in ein pdf mittels acrobat distiller.
Der Code ist folgender:
Public
Sub PDFerstellen()
'Festlegen des aktuellen Druckers
Application.ActivePrinter = "Adobe PDF auf Ne03:"
' Definieren der PS und PDF Files
Dim PSFileName As String
Dim PDFFileName As String
PSFileName = "C:\116.ps"
PDFFileName = "C:\116.pdf"
' Druckbereich angeben
Dim MySheet As Worksheet
Set MySheet = ActiveSheet
MySheet.Range("A1:L31").PrintOut Copies:=1, preview:=False, ActivePrinter:="Adobe PDF auf Ne03:", printtofile:=True, Collate:=True, prtofilename:=PSFileName
DistillerCall = "C:\Programme\Adobe\Acrobat 6.0\Distillr\Acrodist.exe" & _
" /n /q /o" & PDFFileName & " " & PSFileName
ReturnValue = Shell(DistillerCall, vbNormalFocus)
If ReturnValue = 0 Then MsgBox "Creation of " & PDFFileName & "failed."
Set pdfDist = Nothing
End Sub
--->
Ich habe auch send-befehle erstellt, um das Kontrolkästchen "Schriften an den Acorbat Distiller übergeben " automatisch zu deaktivieren und anschließend zu deaktivieren.
--->
Die VErweise für den Acrobat Distiller in der Verzeichnis-Bibliothek von vba habe ich auch aktiviert
Fazit
---> Das MAkro funktioniert so, wie es ob steht einwandfrei, aber: ich würde gerne statt der fixierten PDFFileName und PSFileName dynamisch die Werte aus der Tabelle1 in Feld A1 und A2 übernehmen, z.b mit
'PDFFileName = Tabelle1.Range("A1").Value
'PSFileName = Tabelle1.Range("A2").Value
das funktioniert dann aber nicht, wieso? das ps bekommt er noch so halb hin, aber das pdf dann nicht mehr.
LEider habe ich wenig ahnung von vba und von acrobat, daher, kann mir bitte bitte jemand helfen?
Danke
Philipp