打印排队问题(50分)

我的一个问题，一个机器安装了几个共享的打印机，
当有打印任务时，写个程序让它到空闲的打印机上打印。
当打印机都处于忙状态时，让它到打印任务最少的打印机上。
提示用户打印任务在第几个打印机上。
用delphi 实现，有源码吗？
或一个例子！
含泪提问！
急死了！急死了！急死了！急死了！急死了！
高手快帮忙！

好人快帮我一把吧，我快急死了！
先谢谢了！高人！

还有高手吗？
我都喊了1k个小时了！
帮忙呀！

高手在那里，我求你们了！
给一个提示好吗？

不知道你是否还要解决这个问题，我刚解决类似问题，也是在这里搜索得到的提示，以后先搜索一下就可以解决问题了。
判断打印机的任务个数：
Function GetJobCount(PrinterName:string)
const
InfoLevel = 1;
FirstJob = 0;
LastJob = 100;
var
Jobs: array [FirstJob..LastJob] of TJobInfo1;
PrinterHandle, BytesNeeded, NumJobs: Cardinal;
I:Integer;
begin
Result := -1;
if OpenPrinter(PChar(PrinterName),PrinterHandle,nil) then
begin
if EnumJobs(PrinterHandle,FirstJob,LastJob+1,InfoLevel,@Jobs,SizeOf(Jobs),BytesNeeded,NumJobs) then
Result := NumJobs;
ClosePrinter(PrinterHandle);
end;
end;
获得所有打印机列表：
Printer.Printers
应该可以搞定了吧。