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