I have a macro that prints all documents that are found in a directory, is was thinking that it should be possible to modify this macro to count both the number of documents as well as the pages that are printed, and display the count once the documents are sent for printing.
Start of Code:
Dim sMyDir As String
Dim sDocName As String
sMyDir = "C:\My Documents\"
sDocName = Dir(sMyDir & "*.DOC")
While sDocName <> ""
Application.PrintOut FileName: = sDocName
sDocName = Dir()
End of Code
would Appreciate some help with this, Thanks...