Tabelle als PDF drucken (zum Zweiten!)
29.01.2007 19:08:56
Sepp
Ist das wirklich so schwer? oder geht das nicht?
Hab gestern keine Antwort bekommen
Hoffe Ihr könnt mir weiterhelfen
was ist an diesem Script falsch ?
Ich möchte eine Exceltabelle automatisch als PDF-Datei drucken unter unter Einem Bestimmten Dateinamen und unter einem bestimmten Pfad, ohne ein Auswahlfenster "PDF Datei speichern unter" zu erhalten.
Sub PDF_drucken()
Dim sPrinter As String
Dim NewDateiname As String
Dim NewPfad As String
NewDateiname = ("uebernachsteAI")
NewPfad = ("Y:\test\AI")
Application.ScreenUpdating = False
sPrinter = Application.ActivePrinter
Application.ActivePrinter = "Adobe PDF auf Ne03:"
Drucker = Application.ActivePrinter
prtcmd = NewPfad & NewDateiname
Application.SendKeys (prtcmd), True
Application.SendKeys "{ENTER}", True
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=Drucker
Application.ActivePrinter = sPrinter
Application.ScreenUpdating = True
MsgBox "Datei " & prtcmd & " erstellt!"
End Sub
Aber es läuft nicht.
Danke und Gruß
Sepp
Anzeige