Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 237
  • Last Modified:

how do I know if the printer is printing?

can I, through VB, see if the printer currently is printing, and how many pages that have been printed out? thanx in advance!
0
davvan
Asked:
davvan
  • 6
  • 5
1 Solution
 
y96andhaCommented:
You can get the information you want through the EnumJobs function. Here is a sample showing the code that you need.

Private Const JOB_STATUS_DELETING = &H4
Private Const JOB_STATUS_ERROR = &H2
Private Const JOB_STATUS_OFFLINE = &H20
Private Const JOB_STATUS_PAPEROUT = &H40
Private Const JOB_STATUS_PAUSED = &H1
Private Const JOB_STATUS_PRINTED = &H80
Private Const JOB_STATUS_PRINTING = &H10
Private Const JOB_STATUS_SPOOLING = &H8
Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As Long, pJob As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As Long
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long


Private Sub Command1_Click()
    Dim p As Long
    Dim needed As Long, returned As Long
    Dim pj(8192) As Byte
    If OpenPrinter(Printer.DeviceName, p, 0) Then
        If EnumJobs(p, 0, 100, 1, pj(0), 8192, needed, returned) Then
            For i = 0 To returned - 1
                Print "Status for job " & i & ": ";
                If (pj(i * 64 + 7 * 4) And JOB_STATUS_DELETING) <> 0 Then Print "Deleting ";
                If (pj(i * 64 + 7 * 4) And JOB_STATUS_ERROR) <> 0 Then Print "Error ";
                If (pj(i * 64 + 7 * 4) And JOB_STATUS_OFFLINE) <> 0 Then Print "Offline ";
                If (pj(i * 64 + 7 * 4) And JOB_STATUS_PAPEROUT) <> 0 Then Print "Paperout ";
                If (pj(i * 64 + 7 * 4) And JOB_STATUS_PAUSED) <> 0 Then Print "Paused ";
                If (pj(i * 64 + 7 * 4) And JOB_STATUS_PRINTED) <> 0 Then Print "Printed ";
                If (pj(i * 64 + 7 * 4) And JOB_STATUS_PRINTING) <> 0 Then Print "Printing ";
                If (pj(i * 64 + 7 * 4) And JOB_STATUS_SPOOLING) <> 0 Then Print "Spooling ";
                Print ", " & pj(i * 64 + 11 * 4) + pj(i * 64 + 11 * 4) * 256 & " pages printed"
            Next i
        End If
        ClosePrinter p
    Else
        Print "couldn't open printer"
    End If
End Sub


Please comment if you have any questions.

0
 
davvanAuthor Commented:
Thanx for the great and fast answer! But as I understand, this is VB4-code, and I would like to write the program in VB3. Do you know a way do do this?
0
 
y96andhaCommented:
This is VB5 code, but it should work in VB4 32-bit. It doesn't work in 16-bit anyway though.

I do not think that the 16-bit printer handling can access the number of pages printed. If you print yourself, you could perhaps make each page a different document? I don't have any 16-bit VB installed myself, so I am afraid I can't test it.

What operating system will you be using? It might be possible to check for the files of the print spooler to see when a job has finished printing.

0
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

 
davvanAuthor Commented:
I'll most use Windows NT, so I better write a 32-bit program ;-)
It should be great if the code worked on Windows 3.1x, but it doesn't matter.

Do you know if I can 'check for the files of the print spooler' in Windows NT?
0
 
y96andhaCommented:
In Windows NT, print jobs consist of two files stored in the %SystemRoot%\system32\spool\printers directory. It would be possible to check if the job has finished printing by checking for these files.

But if you do not need the 16-bit environment, I really would suggest moving to VB5. I know that VB4 is much slower than VB3, but VB5 is much faster than VB4, and little faster than VB3. And you could access all new functions.
0
 
davvanAuthor Commented:
I saw in your user profile that you are from Sweden? Is that correct? I live in Gothenburg myself!
Right now, I only own the VB4 and I don't think I can afford to buy VB5, but I'll think about it.
Thanx about the tip of the printers directory. I'll check it out!
0
 
y96andhaCommented:
Sure, I am from Linkoping. I bought VB4 and MSVC++ 4.0 on student license in January for about 1000kr. A few months later I received free copies of VB5 and MSVC++ 5.0, as a free upgrade because they had been released when I bought the older versions.

What kind of program are you writing? VB4 32-bit isn't that bad on a fast computer.
0
 
davvanAuthor Commented:
We've got a small network with 5 users in it, and I am writing a program which logs how many pages each user are printing out. And thanx to you, I'm almost finished! Thank you a lot for helping me out!

We've got Pentium 133, so I think that's enough for VB4 32-bit
0
 
y96andhaCommented:
Suggestion: You could use event logging, and read the log so you don't have to keep your program running and checking the printer at all times. But it shouldn't be such a big performance issue anyway.
0
 
davvanAuthor Commented:
thanx for the great help you've been to me!
just one little questrion:
can I, through the log, see how many pages each user has printed out?
0
 
y96andhaCommented:
If you use NT Workstation and enable logging, I think so. And I am sure that you can if you are using NT Server. Of course this only works if the print job comes from a 32-bit client, as 16-bit clients don't pass information on the number of pages for a print job.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 6
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now