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

Download Example Files

You can download and run the example yourself. The files needed are available here. The VBS file must be placed in the macros sub folder of the PDF Printer installation. You can use the MacroDir setting to change the location of the VBS files if needed. See setting MacroDir in section Settings for further details.

Downloads

Attachment Size
Example file 458 Bytes

Top