求救：有关打印队列的问题

[LUCKOUT]

假设有10个打印任务依次发送到打印机，如何实现在上一个打印任务没有完成时下一个印任务不能发送到打印机？如：
For i=1 to 10
......
......
Printer.EndDoc
Next
程序由Printer.EndDoc向打印机发送打印任务，如果任务没结束，For...Next循环便不能进行，待打印任务完成，才能进入Next循环，再向打印机发送下一个打印任务。

请各位高手指点迷津，谢谢！

[射天狼]

难!!

[wumy_ld]

很难实现，似乎也没这个必要

[ukyoxh]

唯一找到的api,是删除队列的~~~帮不了你了!!

【VB声明】
Private Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Byte, ByVal Command As Long) As Long

【别名】
SetPrinterA

【说明】
对一台打印机的状态进行控制

【返回值】
Long，非零表示成功，零表示失败。会设置GetLastError

【备注】
在PRINTER_INFO_2结构的基础上设置打印机状态时，pServerName，AveragePPM，Status和cJobs字段都会被忽略

【参数表】
hPrinter ------- Long，指定一个已打开的打印机的句柄（用OpenPrinter取得）

Level ---------- Long，0，2或3（4或5用于windows95，5或6用于NT 4.0）。如Command不是零，则这个参数必须是零

pPrinter ------- Byte，包含一个PRINTER_INFO_x的结构的缓冲区，其中的x代表级别的设定（Level）。假如级别为零，并且Command设为PRINTER_CONTROL_SET_STATUS，那缓冲区就包含了一个PRINTER_CONTROL_STATUS结构。否则，如级别为零，就设为NULL（要把声明变成ByVal
As Long，以便传递零值）

Command -------- Long，下述值之一：                   
零
根据PRINTER_INFO_x结构改变打印机
PRINTER_CONTROL_PAUSE
暂停打印机
PRINTER_CONTROL_PURGE
删除打印机的所有作业
PRINTER_CONTROL_RESUME
恢复一台暂停的打印机
PRINTER_CONTROL_SET_STATUS
载入打印机的PRINTER_CONTROL_STATUS结构（不可在NT 3.51下使用）

[nik_Amis]

AD可以做到

[LUCKOUT]

呵呵，在CSDN混的全是高手，不问点难的恐怕都难不住他们，感谢楼上几位的参与！

[LUCKOUT]

nik_Amis(Azrael) ：
　　你好！
　　AD是什么，我不懂，您能不能就AD说明一下呀？

[射天狼]

也不是完全不可以,打印机的驱动就可以检测出来,当卡纸、缺纸甚至连当前纸张打印到什么位置都可以通过图形的方式描绘出来。

[LUCKOUT]

cuizm(射天狼):
你说的有道理，不过这好像是最麻烦的一种解决办法，我也曾想过，但考虑到不同的打印机有不同的驱动，要想在VB下实现我所说的控制，就不是有点难度了，而是难度大去了呀！

[LUCKOUT]

nik_Amis(Azrael)：
　　求您快点指点一下用AD怎么实现呀？能不能给俺一个例子看看呀？

[LUCKOUT]

这个问题太难了是不是？