Looking for Script who count pages printed on one or more print servers

Similar Threads:

1.How to count the number of pages printed when printing a non-contiguous range of pages

I don't think there is an easy way to do this... but maybe someone has has
to deal with this before.

I am printing documents using the ActiveDocument.PrintOut method in VBA.
I'd like to know how many pages were sent to the printer so I can log the
print job.  It is easy if the user prints the entire document, but what if
they print a range of pages (e.g. ActiveDocument.PrintOut
Pages:="p2s2-p3s5")

Does anyone know if there is
i) a variable available that returns the number of pages that was printed
or
ii) a function for calculating the number of pages in the string "p2s2-p3s5"
or
iii) anything else?

Any input appreciated!
-Andrew Head

2.Multiple pages in print preview dialog but only one page prints

I am using a print preview dialog in my program and when there are multiple 
pages and you press the print button it only prints one page.  How can I get 
it to print all pages when you press the print button?

Thanks in advance.

3.Print Preview looks Great but Prints Blank Pages

4.Split Print Area - One Page Print

Is it possible to print two ranges in excel to one page.  For example...in my 
report template, I would like to print cells A164:P176,A201:P233 on one page. 

I have a dynamic report template in excel which allows users to 
select certain employee groups and displays the necessary info based on their 
selections. I am trying to exclude the section where the selections are made 
as it takes up a lot of space, and contains detail that is not needed in a 
final printed 
report. 

I'm not finding a lot of options in the page setup, or proerties within 
excel.Is their any other way to have a polished end user report print 
separate ranges on one tab. Any options in the Page setup, or suggestions on 
how to code this in VBA? 

5.List pages to print, select one page

I have a situation where the user may select one of several possible pages 
to print.  My idea (which may be off the mark, but it's what has occurred to 
me) is that each of the pages would contain a bookmark.  I have adapted some 
code Jay Freedman posted about a year ago to list bookmarks.  I run the code 
as a macro.

  Dim bkm As Word.Bookmark
  Dim doc As Word.Document
  Dim strBkm As String
  Set doc = ActiveDocument
  strBkm = ""

  For Each bkm In doc.Bookmarks
    strBkm = strBkm & bkm.Name & vbCrLf
  Next

  MsgBox strBkm

This produces a list of bookmarks in the document.  I realize the list as 
produced by this code is for display only, but what I hope is that the user 
can select from the list, thereby printing the page on which the bookmark 
appears.  I already have worked out some code that can identify the page 
number.  Maybe it would be something like:

Dim b1 as Long

    b1 = ActiveDocument.Bookmarks("MoreStart").Range _
            .Information(wdActiveEndAdjustedPageNumber)
   ActiveDocument.PrintOut _
      Range:=wdPrintFromTo, From:=CStr(b1), To:=CStr(b1)

This may not be the smoothest way to accomplish what I need.  For instance, 
maybe I can produce a list of bookmarks, and when the user selects one Word 
can go to that page, and I can use wdPrintSelection, or something like that. 
Or maybe there is another option I have not considered.

The main thing is that I would first need to have a user-selectable list to 
identify the page that needs to be printed. 

6. Count pages printed

7. Get the count of pages printed

8. Count pages printed.