Aus Excel PDF erstellen
09.02.2004 11:52:01
Raphael
Habe folgendes Problem: Will aus Excel automatisch ein PDF erstellen lassen. Jedoch kommt bei angehängtem Code immer die Box "Speicher unter..." die will ich nicht. Kann man die irgendwie übersteuern? Hab es mit SendKeys versucht, geht aber irgendwie nicht. Ideal wäre, wenn speicherpfad und Dateiname direkt aus Zellen A2 (Dateiname) und A2 (Pfad) ausgelesen würden.
Wäre echt froh um eure Hilfe
Sub PDF_erstellen()
Dim sPrinter As String
Dim NewDateiname As String
Dim NewPfad As String
Dim strPDFName As String
NewDateiname = ActiveSheet.Range("A2").Value
NewPfad = ActiveSheet.Range("A3").Value
NewFN = NewPfad & NewDateiname
Application.ScreenUpdating = False
sPrinter = Application.ActivePrinter
Application.ActivePrinter = "Acrobat Distiller auf Ne00:"
Drucker = Application.ActivePrinter
strPDFName = "T:\Temp\FIN\TestSeite1.pdf" 'rsp. NewPfad & NewDateiname
ChDrive "T": ChDir "T:\Temp\FIN"
Application.SendKeys strPDFName "{enter}", False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=False, ActivePrinter:=Drucker
Application.ActivePrinter = sPrinter
'Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Datei " & NewDateiname & " erstellt!"