1. Sub OnAfterPrint()
  2.     Dim filelist
  3.  
  4.     filelist = ""
  5.     For Each fn In Context("FileList").items
  6.         filelist = filelist & fn & vbCrLf
  7.     Next
  8.     MsgBox "Your document was created." & vbCrLf & vbCrLf & _
  9.         Context("OutputFileName") & vbCrLf & vbCrLf & _
  10.         "It contains " & Context("PageCount") & " pages in " & _
  11.         Context("FileCount") & " files." & vbCrLf & vbCrLf & _
  12.         "Output files:" & vbCrLf & filelist
  13. 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

Top