Jump to content

Welcome Guest to Geeks to Go - Register now for FREE
Geeks To Go is a helpful hub, where thousands of friendly volunteers serve up answers and support. Get free advice from the experts. Feel free to browse the site as a guest. However, you must log in to reply to existing topics or start a new topic of your own, and enjoy all this forum has to offer. Additionally, if you can assist another member by sharing your knowledge, please post a reply! Best of all - Registration and all assistance, is FREE! Learn more about How it Works. Infected? Malware Cleaning Guide. What are you waiting for?
Create an Account Login to Account

Word Macro to Count the number of documents and Pages Printed

  • Please log in to reply

Hanaan Ashraf

Hanaan Ashraf

    New Member

  • Member
  • Pip
  • 1 posts
Hi Guys,

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.

The Code:
Start of Code:
Sub ListDocNamesInFolder()
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 Sub
End of Code

would Appreciate some help with this, Thanks...
  • 0


Similar Topics: Word Macro to Count the number of documents and Pages Printed     x

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

As Featured On: