取打印机状态问题

Sylas

有没有取打印机状态的例子或者api调用方法

大司命

纯API操作打印机，无模块。
https://bbs.125.la/forum.php?mod=viewthread&tid=14414991
(出处: 精易论坛)

我是想研究下！但缺少打印机~

yikexiaodudu

看看这个行不行

萧阳天

1. .版本 2
   
2. 
   
3. .子程序 取任务属性, 打印任务信息, 公开, 获取指定打印机任务ID详细信息.
   
4. .参数 打印机名称, 文本型, 可空, 可空，即默认打印机。
   
5. .参数 任务ID
   
6. .局部变量 hPrinter
   
7. .局部变量 pd, 打印默认_
   
8. .局部变量 bool, 逻辑型
   
9. .局部变量 dwNeeded
   
10. .局部变量 lReturned
    
11. .局部变量 job, JOB_INFO_2
    
12. .局部变量 cnt, 整数型
    
13. .局部变量 Hour, 文本型
    
14. .局部变量 Minute, 文本型
    
15. .局部变量 Second, 文本型
    
16. .局部变量 Month, 文本型
    
17. .局部变量 Day, 文本型
    
18. .局部变量 Time, 文本型
    
19. .局部变量 hMem, 整数型
    
20. .局部变量 jobinfo, 打印任务信息
    
21. 
    
22. 打印机名称 ＝ 选择 (是否为空 (打印机名称), 取默认打印机 (), 打印机名称)
    
23. .如果真 (OpenPrinter (打印机名称, hPrinter, pd))
    
24.     GetJob (hPrinter, 任务ID, 2, 0, 0, dwNeeded)
    
25.     hMem ＝ GlobalAlloc (64, dwNeeded)
    
26.     bool ＝ GetJob (hPrinter, 任务ID, 2, hMem, dwNeeded, dwNeeded)
    
27.     .如果真 (bool)
    
28.         CopyMemory_job_info_2 (job, 指针到字节集 (hMem, 104), 104)
    
29.         Month ＝ 选择 (job.Submitted.月 ＜ 10, “0” ＋ 到文本 (job.Submitted.月), 到文本 (job.Submitted.月))
    
30.         Day ＝ 选择 (job.Submitted.日 ＜ 10, “0” ＋ 到文本 (job.Submitted.日), 到文本 (job.Submitted.日))
    
31.         Hour ＝ 选择 (8 ＋ job.Submitted.小时 ＜ 10, “0” ＋ 到文本 (job.Submitted.小时 ＋ 8), 到文本 (job.Submitted.小时 ＋ 8))
    
32.         Minute ＝ 选择 (job.Submitted.分 ＜ 10, “0” ＋ 到文本 (job.Submitted.分), 到文本 (job.Submitted.分))
    
33.         Second ＝ 选择 (job.Submitted.秒 ＜ 10, “0” ＋ 到文本 (job.Submitted.秒), 到文本 (job.Submitted.秒))
    
34.         Time ＝ Hour ＋ “:” ＋ Minute ＋ “:” ＋ Second ＋ “ ” ＋ 到文本 (job.Submitted.年) ＋ 系统_取日期分隔符 () ＋ Month ＋ 系统_取日期分隔符 () ＋ Day ＋ “ ” ＋ 取星期 (job.Submitted.星期)
    
35.         jobinfo.任务ID ＝ job.JobId
    
36.         jobinfo.打印机名称 ＝ 指针到文本 (job.pPrinterName)
    
37.         jobinfo.任务创建者 ＝ 指针到文本 (job.pMachineName)
    
38.         jobinfo.所有者 ＝ 指针到文本 (job.pUserName)
    
39.         jobinfo.通知 ＝ 指针到文本 (job.pNotifyName)
    
40.         jobinfo.文档名 ＝ 指针到文本 (job.pDocument)
    
41.         jobinfo.数据类型 ＝ 指针到文本 (job.pDatatype)
    
42.         jobinfo.处理器名字 ＝ 指针到文本 (job.pPrintProcessor)
    
43.         jobinfo.驱动名称 ＝ 指针到文本 (job.pDriverName)
    
44.         jobinfo.提交时间 ＝ Time
    
45.         jobinfo.大小 ＝ job.Size
    
46.         jobinfo.页数 ＝ job.TotalPages
    
47.         jobinfo.状态 ＝ job.Status
    
48.         jobinfo.优先级 ＝ job.Priority
    
49.     .如果真结束
    
50.     ClosePrinter (hPrinter)
    
51.     GlobalFree (hMem)
    
52. .如果真结束
    
53. 返回 (jobinfo)
    

复制代码

Sylas

萧阳天 发表于 2021-5-23 16:05

有没有源码案例呢。缺少dll和数据类型

qmcy888

谢谢分享