Statusermittlung über OnAfterPrint Event Handler / PDF Drucker
-
Sub OnAfterPrint()
-
Dim filelist
-
-
filelist = ""
-
For Each fn In Context("FileList").items
-
filelist = filelist & fn & vbCrLf
-
Next
-
MsgBox "Your document was created." & vbCrLf & vbCrLf & _
-
Context("OutputFileName") & vbCrLf & vbCrLf & _
-
"It contains " & Context("PageCount") & " pages in " & _
-
Context("FileCount") & " files." & vbCrLf & vbCrLf & _
-
"Output files:" & vbCrLf & filelist
-
End Sub
Beispieldatei Download
Sie können den Beispielcode herunterladen. Die darin enthaltene VBS-Macrodatei verschieben Sie nach dem Entpacken bitte in den macros Ordner des PDF-Druckers (im Installationsverzeichnis). Sie können auch mit der Einstellung MacroDir ein anderes Verzeichnis festlegen.
Downloads
Anhang | Größe |
---|---|
Codebeispiel herunterladen | 458 Bytes |