Druckereinstellungen Adobe PDF per Makro abfragen
01.04.2008 10:30:00
alex
ich will mit einem Makro die Druckereinstellungen des Adobe PDF (Adobe Acrobat 8 Standard) auslesen und wegschreiben. Dann möchte ich diese verändern, sodass die Ausdrucke meiner Schleife mit diesen Druckereinstellungen gedruckt werden. Danach soll er wieder auf die Ausgangsbasis der Druckereinstellung zurückstellen.
Im Archiv habe ich nur eine (unschöne) Lösung mit SendKey gefunden.
Speziell will ich die Einstellungen:
Adobe PDF-Sicherheit
Adobe PDF-Ausgabeordner
Adobe PDF-Ereignisse anzeigen
ändern.
Mein Makro-Entwurfs-Ausschnitt sieht ohne Druckereinstellungen verändern wie folgt aus:
Sub Berichte_per_Mail_versenden()
Dim blabla...
'Variablen Steuerung
intZähler = 25
intGesamtzeile = Range("A500").End(xlUp).Row
strPrinter = "Adobe PDF auf Ne05:"
For intZähler = 25 To intGesamtzeile
Sheets("Steuerung").Select
'Prüfung ob Bericht erstellt werden soll sonst nexter Markt
strErstellen = Cells(intZähler, 5)
If strErstellen = "x" Then
GoTo Sprung1
Else
GoTo Sprung2
End If
Sprung1:
'Marktgrunddaten auslesen
intMarktnummer = Cells(intZähler, 1)
strMail = Cells(intZähler, 3)
strTabelle = CStr(intMarktnummer)
Sheets(strTabelle).Select
DoEvents
Application.ActivePrinter = strPrinter
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:=strPrinter, _
Collate:=True
Do While Dir("G:\Pfad\Test.pdf") = ""
Loop
Name "G:\Pfad\Test.pdf" As "G:\Pfad\" & strTabelle & ".pdf"
'PDF löschen
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile "G:\Pfad\" & strTabelle & ".pdf"
Sprung2:
Next
End Sub
Wäre super wenn mir jemand helfen könnte.
Grüße
Alex