Makro ändern #2

Hallo zusammen,
das folgend Makro funktioniert einwandfrei, aber wenn ich in den aktuellen Arbeitsblättern Veränderungen vornehme
und wieder als pdf-Datei abspeichere wird die vorhandene pdf-Datei nicht überschrieben.
Könnte man am Anfang des Makros eventuell eine Löschanweisung einbauen, um das vorhande Arbeitsblatt zulöschen?
Ich habe schon einiges mit der Delete-Anweisung versucht, bekomme das Ding aber nicht gebacken. Bin halt kein großer VBA-Kenner.
Hat jemand eine Idee ob das geht und wenn ja - Wie ?
Einstweilen herzlichen Dank an alle, die sich für mich bemühen.
Gruß
Odje


Sub TestDruck()
Dim strAktuellerDrucker As String
strAktuellerDrucker = Application.ActivePrinter
Activesheet.PrintOut ActivePrinter:="FreePDF XP auf Ne00:", PrintToFile:=True, _
PrToFileName:="C:\Dokumente und Einstellungen\User\Desktop\"& ActiveSheet.Name & ".ps"
strPS_Datei = "C:\Dokumente und Einstellungen\User\Desktop\" & ActiveSheet.Name & ".ps"
ActiveSheet.PrintOut ActivePrinter:="FreePDF XP auf Ne00:", PrintToFile:=True,PrToFileName:= _
_
strPS_Datei
Shell ("C:\Programme\Freepdf_xp\Freepdf.exe """ & strPS_Datei & """ /a /d /x")
Application.ActivePrinter = strAktuellerDrucker
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub TestDruck() Dim strAktuellerDrucker As String, strPS_Datei As String strAktuellerDrucker = Application.ActivePrinter strPS_Datei = "C:\Dokumente und Einstellungen\User\Desktop\" & ActiveSheet.Name & ".ps" If Dir(strPS_Datei) "" Then Kill strPS_Datei End If ActiveSheet.PrintOut ActivePrinter:="FreePDF XP auf Ne00:", PrintToFile:=True, _ PrToFileName:=strPS_Datei Shell ("C:\Programme\Freepdf_xp\Freepdf.exe """ & strPS_Datei & """ /a /d /x") Application.ActivePrinter = strAktuellerDrucker End Sub

Sub TestDruck() Dim strAktuellerDrucker As String, strPS_Datei As String, strPDF_Datei As String strAktuellerDrucker = Application.ActivePrinter strPS_Datei = "C:\Dokumente und Einstellungen\User\Desktop\" & ActiveSheet.Name & ".ps" strPDF_Datei = "C:\Dokumente und Einstellungen\User\Desktop\" & ActiveSheet.Name & ".pdf" If Dir(strPDF_Datei) "" Then Kill strPDF_Datei End If ActiveSheet.PrintOut ActivePrinter:="FreePDF XP auf Ne00:", PrintToFile:=True, _ PrToFileName:=strPS_Datei Shell ("C:\Programme\Freepdf_xp\Freepdf.exe """ & strPS_Datei & """ /a /d /x") Application.ActivePrinter = strAktuellerDrucker End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread