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!
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

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_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 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
        Print "couldn't open printer"
    End If
End Sub

Please comment if you have any questions.


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
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?
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.

Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

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?
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.
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!
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.
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
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.
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?
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.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.