| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 974 人关注过本帖, 1 人收藏
标题:把打印机纸张代码转换为尺寸信息的代码分析问题,非常有用的代码!
只看楼主 加入收藏
dxnn520
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-9-4
收藏(1)
 问题点数:0 回复次数:1 
把打印机纸张代码转换为尺寸信息的代码分析问题,非常有用的代码!

以下是把打印机纸张代码转换为尺寸信息,运行时出错了,我离“实现win2000自定义报表在其它机器不用做任何设置”的程序就差这一步了,请各位帮帮我吧!我成功后,一定会把代码奉献给大家的。

*----------------------------------------------------------
#DEFINE DC_MAXEXTENT 5
#DEFINE DC_MINEXTENT 4
#DEFINE DC_PAPERNAMES 16
#DEFINE DC_PAPERS 2
#DEFINE DC_PAPERSIZE 3
#DEFINE SIZE_LONG 4
#DEFINE SIZE_INT 2

DECLARE LONG DeviceCapabilities IN WinSpool.Drv;
STRING lpDeviceName,;
STRING lpPort,;
LONG iIndex,;
STRING @lpOutput,;
STRING @lpDevMode
* lpOutput: 缓冲区的地址,能力数据会装载到这个缓冲区中。
* lpDevMode: 一个DEVMODE结构的地址,或者为零。

***********************************************************
* 名称:GetPaperInfo
* 功能:得到打印机低张信息
***********************************************************
LOCAL lcPrinter,lcPort,lnCount
LOCAL lnRet,lcBuffer,lnPapers
LOCAL lnMaxLength,lnMaxWidth
LOCAL lnMinLength,lnMinWidth
lcPrinter = SET("Printer",3)
lcPort = "LPT1"

*支持最大打印纸:失败!
lnRet = DeviceCapabilities(lcPrinter,lcPort,DC_MAXEXTENT,0,0)
lnMaxLength = INT(lnRet / 65536)
lnMaxWidth = lnRet % 65536

*支持最小打印纸:失败!
lnRet = DeviceCapabilities(lcPrinter,lcPort,DC_MINEXTENT,0,0)
lnMinLength = INT(lnRet / 65536)
lnMinWidth = lnRet % 65536

*支持纸张种类数:
lnPapers = DeviceCapabilities(lcPrinter,lcPort,DC_PAPERS,0,0)

*纸张编号:
LOCAL laPaperNo(lnPapers)
lcBuffer = SPACE(SIZE_INT * lnPapers)
= DeviceCapabilities(lcPrinter,lcPort,DC_PAPERS,@lcBuffer,0)
FOR lnCount = 1 TO lnPapers
laPaperNo(lnCount) = C2BIN(SUBSTR(lcBuffer,(lnCount - 1) * SIZE_INT + 1,SIZE_INT)) && 出错了,提示:“函数名缺少 )”
ENDFOR

*纸张名称:
LOCAL laPageName(lnPapers)
lcBuffer = SPACE(lnPapers * 64)
= DeviceCapabilities(lcPrinter,lcPort,DC_PAPERNAMES,@lcBuffer,0)
= ALINES(laPageName,lcBuffer,5,CHR(0))

*纸张尺寸:
LOCAL laPageSize(lnPapers,2)
lcBuffer = SPACE(lnPapers * SIZE_LONG * 2)
= DeviceCapabilities(lcPrinter,lcPort,DC_PAPERSIZE,@lcBuffer,0)
FOR lnCount = 1 TO lnPapers * 2
laPageSize(lnCount) = C2BIN(SUBSTR(lcBuffer,(lnCount - 1) * SIZE_LONG + 1,SIZE_LONG))
ENDFOR

SUSPEND

FUNCTION C2BIN
LPARAMETERS tcString
LOCAL lnRet,lnCount
lnRet = 0
FOR lnCount = LEN(tcString) TO 1 STEP -1
lnRet = lnRet * 256 + ASC(SUBSTR(tcString,lnCount,1))
ENDFOR
RETURN lnRet


*------------------------------ \\ 以上出错如下!!
laPaperNo(lnCount) = C2BIN(SUBSTR(lcBuffer,(lnCount - 1) * SIZE_INT + 1,SIZE_INT)) && 出错了,提示:“函数名缺少 )”
*------------------------------ \\
我离“实现win2000自定义报表在其它机器不用做任何设置”的程序就差这一步了,请各位帮帮我吧!我成功后,一定会把代码奉献给大家的。

搜索更多相关主题的帖子: 打印机 分析问题 纸张 尺寸 代码 
2006-10-30 21:30
DQWVFP
Rank: 1
等 级:新手上路
帖 子:29
专家分:5
注 册:2013-7-6
收藏
得分:0 
楼主大师:
你好,请问laPageSize()如何获得?请赐教完整代码。
另外,请赐教CTBIN()函数的 完整格式及参数。多谢多谢!
2013-07-08 20:22
快速回复:把打印机纸张代码转换为尺寸信息的代码分析问题,非常有用的代码!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030913 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved