• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 225
  • Last Modified:

How I can control the Print queue?

Dear All....

I need to build an application to control our network printer by number of pages for each user then if any user exceed his limit the program should delete his printing job.

About 70% of My application now is ready it's counting number of pages printed,saveing all the printer jobs for each user in a database.

What I need is a code to delete or cancel any printer jobs from the print queue if the owner of this job is exceeding his paper limit?

Your help is realy appreciated.









0
mohd130
Asked:
mohd130
  • 8
  • 2
1 Solution
 
mohd130Author Commented:
Please as soon as possible

Many Thanks
0
 
mohd130Author Commented:
Please as soon as possible

Many Thanks
0
 
q2eddieCommented:
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
mohd130Author Commented:
thank you Q2eddie

It's a nice program but only for WNT and 2000 I need the program to run with W98.

0
 
mohd130Author Commented:
By using the function SetJob, In MSDN it's written that:

The SetJob function pauses, resumes, cancels, or restarts a print job on a specified printer. You can also use the SetJob function to set print job parameters, such as the print job priority and the document name.

BOOL SetJob(
  HANDLE hPrinter,  // handle to printer object
  DWORD JobId,      // print job identifier
  DWORD Level,      // specifies type of job information structure
  LPBYTE  pJob,     // pointer to job information structure
  DWORD Command     // job command value
);
 

But how I can use it in VB??

0
 
q2eddieCommented:
Hi, again.

I think the declaration is like this:

Declare Function SetJob _
    Lib "winspool.drv" _
    Alias "SetJobA" ( _
        ByVal hPrinter As Long, ByVal JobId As Long, _
        ByVal Level As Long, pJob As Byte, _
        ByVal command As Long) _
    As Long

#Links
1. "bas for 13 Windows dll's"
http://www.planet-source-code.com/xq/ASP/txtCodeId.7927/lngWId.1/qx/vb/scripts/ShowCode.htm

Bye. -e2
0
 
mohd130Author Commented:
I thing it's right declaration, only I have a problrm with the parameter:

PJob as byte

I define Job_info_1 as :

Type JOB_INFO_1
  JobId        As Long
  pPrinterName As Long
  pMachineName As Long
  pUserName    As Long
  pDocument    As Long
  pDatatype    As Long
  pStatus      As Long
  Status       As Long
  Priority     As Long
  Position     As Long
  TotalPages   As Long
  PagesPrinted As Long
  Submitted    As SYSTEMTIME
End Type

or do you have any example that used this function.

0
 
mohd130Author Commented:
I get It :):):):):):):)

I just define avariable of Byte and send it with the function argument with the commend &H4 to delete the printer job and it was success.


Many Thanks q2eddi
I'll accept your comment as answer.

Moh'd
0
 
mohd130Author Commented:
I get It :):):):):):):)

I just define avariable of Byte and send it with the function argument with the commend &H4 to delete the printer job and it was success.


Many Thanks q2eddi
I'll accept your comment as answer.

Moh'd
0
 
mohd130Author Commented:
Sorry it seems that there is something wrong??

It's not working.

Please help again
Mo
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 8
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now