还是打印的问题.看似蛮简单的,可就不是咱整!狂晕......

哪位哥们这方面的经验呀!

你个办法不用线程 ，你可以试试! 用系统钩子，找到在打印机的打印列队里的那个文件名是否还在，
用系统 钩子就是可以返回打印完的那个文档名，如果和你的相同就开妈切纸!
你试试吧! 祝你好运 !

检查打印队列中是否还有打印的任务（几个）
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
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 ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long

Private Sub Command1_Click()
Dim hPrinter As Long
Dim dwNeeded, dwReturned As Long
Dim b(1000) As Byte

If OpenPrinter("Canon Bubble-Jet BJ-10e", hPrinter, ByVal 0&) = 0 Then
Exit Sub
End If

EnumJobs hPrinter, 0, &HFFFFFFFF, 1, b(0), 1000, dwNeeded, _
dwReturned
MsgBox "有" & dwReturned & "个打印任务!"
ClosePrinter hPrinter
End Sub

to fuanwei(草原上狂奔的蜗牛)
打印任务的问题都解决了，但现在的问题是如何避开检查打印任务所占用的时间。

用多线程