Solved

How I can control the Print queue?

Posted on 2001-06-17
10
207 Views
Last Modified: 2010-05-02
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
Comment
Question by:mohd130
  • 8
  • 2
10 Comments
 

Author Comment

by:mohd130
ID: 6199411
Please as soon as possible

Many Thanks
0
 

Author Comment

by:mohd130
ID: 6199412
Please as soon as possible

Many Thanks
0
 
LVL 7

Expert Comment

by:q2eddie
ID: 6199457
0
ScreenConnect 6.0 Free Trial

Check out the updates in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI that improves session organization and overall user experience. See the enhancements for yourself!

 

Author Comment

by:mohd130
ID: 6199514
thank you Q2eddie

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

0
 

Author Comment

by:mohd130
ID: 6199522
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
 
LVL 7

Accepted Solution

by:
q2eddie earned 300 total points
ID: 6199540
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
 

Author Comment

by:mohd130
ID: 6199615
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
 

Author Comment

by:mohd130
ID: 6199626
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
 

Author Comment

by:mohd130
ID: 6199647
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
 

Author Comment

by:mohd130
ID: 6199649
Sorry it seems that there is something wrong??

It's not working.

Please help again
Mo
0

Featured Post

Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

810 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question