Printer

[jruelan]

hello, how do i know if the printer printed the second copy of 5 copies, the third of five copies, and so on... tnx...

[PsaltyDS]

hello, how do i know if the printer printed the second copy of 5 copies, the third of five copies, and so on... tnx...

From the command line you can just type NET PRINT for some info. Don't remember if pages for active jobs are listed.

Can you work with WMI COM objects? I ask because that is in the Win32_PrintJob object as PagesPrinted and TotalPages for the job. If you have Microsoft's Scriptomatic, just find the VBScript enumerator for Win32_PrintJob and convert what you need to AutoIt.

Merry Christmas!

[jruelan]

tnx for the wonderful reply, uhm, where can i find the scriptomatic??? : )

Merry Christmas too!

[jruelan]

oops, found it already, tnx... wonderful help anyways....

[GEOSoft]

From the command line you can just type NET PRINT for some info. Don't remember if pages for active jobs are listed.

Can you work with WMI COM objects? I ask because that is in the Win32_PrintJob object as PagesPrinted and TotalPages for the job. If you have Microsoft's Scriptomatic, just find the VBScript enumerator for Win32_PrintJob and convert what you need to AutoIt.

Merry Christmas!

Or use the AutoIt Scriptomatic and not have to convert

expandcollapse popup

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output &= "Computer: " & $strComputer  & @CRLF
$Output &= "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PrintJob", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $Output &= "Caption: " & $objItem.Caption & @CRLF
      $Output &= "DataType: " & $objItem.DataType & @CRLF
      $Output &= "Description: " & $objItem.Description & @CRLF
      $Output &= "Document: " & $objItem.Document & @CRLF
      $Output &= "DriverName: " & $objItem.DriverName & @CRLF
      $Output &= "ElapsedTime: " & WMIDateStringToDate($objItem.ElapsedTime) & @CRLF
      $Output &= "HostPrintQueue: " & $objItem.HostPrintQueue & @CRLF
      $Output &= "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
      $Output &= "JobId: " & $objItem.JobId & @CRLF
      $Output &= "JobStatus: " & $objItem.JobStatus & @CRLF
      $Output &= "Name: " & $objItem.Name & @CRLF
      $Output &= "Notify: " & $objItem.Notify & @CRLF
      $Output &= "Owner: " & $objItem.Owner & @CRLF
      $Output &= "PagesPrinted: " & $objItem.PagesPrinted & @CRLF
      $Output &= "Parameters: " & $objItem.Parameters & @CRLF
      $Output &= "PrintProcessor: " & $objItem.PrintProcessor & @CRLF
      $Output &= "Priority: " & $objItem.Priority & @CRLF
      $Output &= "Size: " & $objItem.Size & @CRLF
      $Output &= "StartTime: " & WMIDateStringToDate($objItem.StartTime) & @CRLF
      $Output &= "Status: " & $objItem.Status & @CRLF
      $Output &= "StatusMask: " & $objItem.StatusMask & @CRLF
      $Output &= "TimeSubmitted: " & WMIDateStringToDate($objItem.TimeSubmitted) & @CRLF
      $Output &= "TotalPages: " & $objItem.TotalPages & @CRLF
      $Output &= "UntilTime: " & WMIDateStringToDate($objItem.UntilTime) & @CRLF
      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_PrintJob" )
Endif


Func WMIDateStringToDate($dtmDate)

    Return (StringMid($dtmDate, 5, 2) & "/" & _
    StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
    & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

[jruelan]

where can i download this?

Tnx!

Happy Holidays!

[GEOSoft]

where can i download this?

Tnx!

Happy Holidays!

The original is in Example scripts (way back) but I did a couple of mods so it would run compiled.

Here is the link to the compiled version

AutoIt Scriptomatic.

Good luck.

[jruelan]

cool!!! tnx alot there!

[qube]

can it run on Win2003 ?

[GEOSoft]

can it run on Win2003 ?

I don't see why not.

[jruelan]

scriptomatic is great but does any one know how to detect if the printer has finished printing a single page. Win32_PrintJob only displays the pages to be printed, not "Now printing 5 of 13 pages" and the like...

tnx, anyone

[PsaltyDS]

scriptomatic is great but does any one know how to detect if the printer has finished printing a single page. Win32_PrintJob only displays the pages to be printed, not "Now printing 5 of 13 pages" and the like...

tnx, anyone

Did you compare the $objItem.PagesPrinted and $objItem.TotalPages properties?

[GEOSoft]

scriptomatic is great but does any one know how to detect if the printer has finished printing a single page. Win32_PrintJob only displays the pages to be printed, not "Now printing 5 of 13 pages" and the like...

tnx, anyone

I'm not sure if "ExtendedPrinterStatus: " & $objItem.ExtendedPrinterStatus gives it to you or not but you can also try looking up

Win32_PrintJob

with Scriptomatic

I'm sure it has Status.

[jruelan]

i've already compared $objItem.PagesPrinted and $objItem.TotalPages properties. I am printing a 2 page pdf document, i want to reproduce five copies of it, ergo, i placed 5 in the Copies control. during the printer spooling, i ran the scriptomatic win32_printjob and found out the pagesprinted outputs 10 while total pages is 0, i tried rerunning the win32_printjob query until the printing is finished, all the outputs of the query are the same