Makro ändern
Odje.K
ich habe mir folgendes Makro erstellt und versuche schon eine Weile es so um zuformem, damit man das aktive Arbeitsblatt ausdrucken kann.
Bekomme das Ding leider nicht gebacken und brauche eure Hilfe.
Sub TestDruck()
Dim strAktuellerDrucker As String
strAktuellerDrucker = Application.ActivePrinter
Worksheets("Tabelle1").PrintOut ActivePrinter:="FreePDF XP auf Ne00:", PrintToFile:=True, _
PrToFileName:="C:\Dokumente und Einstellungen\User\Desktop\Test.ps"
Shell ("C:\Programme\Freepdf_xp\Freepdf.exe ""C:\Dokumente und Einstellungen\User\ _
Desktop\Test.ps"" /a /d /x")
Application.ActivePrinter = strAktuellerDrucker
End Sub
Hat jemand eine Idee ob das geht und wenn ja - Wie ?
Einstweilen herzlichen Dank an alle, die sich für mich bemühen.
MfG Odje
Anzeige