|
Hallo!
Ich schreibe momentan an einem kleiner Makroloesung fuer Abrechnungen von Getraenken und aehnlichen. Ich habe fast alles erledigt was ich brauche, nur scheitert es momentan an meiner PDF Ausgabe. Ich nutze FreePDF (das soll/muss auch so bleiben). Da ich ich das Skript auf mehreren Rechnern nutzen moechte, soll es sich den FreePDF Drucker immer automatisch suchen und aktivieren. ZZ ist es so, dass FreePDF als standartdrucker aktiviert sein muss, das will ich natuerlich vermeiden. Hier ist der entsprechende Teil des Codes:
Dim strAktuellerDrucker As String
strAktuellerDrucker = Application.ActivePrinter
Worksheets(Klient).PrintOut ActivePrinter:="FreePDF:", PrintToFile:=True, PrToFileName:="C:\TEMP\test.ps"
Shell (Environ("ProgramFiles") + "\freepdf_xp\freepdf.exe C:\TEMP\test.ps /a /d /x")
Application.ActivePrinter = strAktuellerDrucker
Vielleicht koennt ihr mir ja helfen,
viele Gruesse
Stefan
|