PDF erzeugen - Makro mit Speicherpfad (ConvertWIZ) :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

PDF erzeugen - Makro mit Speicherpfad (ConvertWIZ)

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

matn
Newbie
Newbie

Anmeldedatum: 20.10.2006
Beiträge: 29

Verfasst am: 16.10.2007, 09:34

Hallo Zusammen,

ich möchte ein Makro schreiben um ein Excel-File zum einen an einem bestimmten Pfad separat abzuspeichern und ebenfalls an dem gleichen Pfad ein PDF der Datei zu erzeugen.

Der mir zur Verfügung stehende PDF drucker heißt ConvertWIZ.

Das Makro funktioniert bis jetzt so weit, dass ich die Datei unter dem gewünschten Namen als XLS abspeichern kann und auch das drucken der Datei funktioniert. Aber leider kann ich den PFAD für das PDF nicht schon im Makro vorgeben. Kennt ihr eine Lösung wie ich dem PDF drucker den Pfad übergeben kann???

Hier mein aktuelles Makro

Code:

Sub Planung_archivieren()
'
Dim BEZEICHNUNG As String, DATEINAME_XLS As String, DATEINAME_PDF As String, ANFANG As String, ENDE_XLS As String, ENDE_PDF As String

BEZEICHNUNG = Sheets("Bericht").Range("B6").Value
ANFANG = C:\Testarchiv\Planung_"
ENDE_XLS = ".xls"
ENDE_PDF = ".pdf"
DATEINAME_XLS = ANFANG + BEZEICHNUNG + ENDE_XLS
DATEINAME_PDF = ANFANG + BEZEICHNUNG + ENDE_PDF

Windows("Planung.xls").Activate

Sheets("Bericht").Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs DATEINAME_XLS, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Application.ActivePrinter = "ConvertWIZ auf CVW1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"ConvertWIZ auf CVW1:", Collate:=True

'PrToFileName:=DATEINAME_PDF --> habe ich schon ausprobiert. ohne erfolg

End Sub

Ich hoffe ihr könnt damit etwas anfangen. Vielen Dank für Eure Hilfe

_________________
Wer Rehctshcriebfheler findet darf sie behalten Smile

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	CommandButton in Zeile erzeugen	Paulus2408	Microsoft Excel Hilfe	2	04.09.2008, 16:41
	Makro das email loescht	stom	Microsoft Outlook Hilfe	0	03.09.2008, 13:20
	Excel spielt verrückt, Makro funktion...	Frederic	Microsoft Excel Hilfe	3	02.09.2008, 12:59
	Bei Veränderung in Eingabemaske Makro...	trottlbua	Microsoft Excel Hilfe	2	02.09.2008, 10:15
	Makro soll relativen Bereich mit Date...	Frederic	Microsoft Excel Hilfe	2	29.08.2008, 16:12

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de