PDF auf bestimmten Laufwerk speichern
22.09.2005 08:27:23
Sasato
ich erstelle zur Zeit PDFs mit folgendem Makro. Der Dateiname des PDFs wird in Zelle E10 ausgelesen:
Sub AB_drucken()
Dim sPrinter As String
Dim AB_Dateiname As String
AB_Dateiname = ActiveSheet.Range("E10").Value
Application.ScreenUpdating = False
sPrinter = Application.ActivePrinter
Application.ActivePrinter = "Adobe PDF auf Ne03:"
Drucker = Application.ActivePrinter
prtcmd = AB_Dateiname
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
Leider wird die PDF-Datei standardmäßig unter "/eigene Dateien" gespeichert, soll aber auf einem anderen Laufwerk und Unterordner gespeichert werden (sagen wir M:/test).
Hat jemand eine Idee, wo man diesen Pfadangabe ins Makro einbaut?
Danke im voraus,
Sascha
Anzeige