在vfp9.0中怎样获得当前打印机的所有纸张类型
发布网友
发布时间：2024-10-20 15:24
我来回答
共1个回答
热心网友
时间：2024-12-01 19:25
MyFll.Fll,其中有函数
PaperInfo
*显示系统所有纸张
Set Library To myfll.fll
cBuff=PaperInfo()
Local ARRAY aPaper[1],aPer[1]
nCount=ALines(aPaper,cBuff,Chr(10)+Chr(10)) &&每张纸是以两个换符结束的
ALines(aPer,aPaper[1],Chr(10)) &&纸张的每个信息是以一个换符结束的
lin=aPer[2]
For x=1 to nCount
ALines(aPer,aPaper[x],Chr(10)) &&纸张的每个信息是以一个换符结束的
thisform.combo1.additem(aPer[2])
EndFor
thisform.combo1.displayValue=lin
thisform.label3.Caption="纸张信息："+CHR(13);
+"纸张的Id："+ALLTRIM(STR(PaperInfo(thisform.combo1.displayValue,1)))+CHR(13);
+"纸张的纸张名："+ALLTRIM(PaperInfo(thisform.combo1.displayValue,2))+CHR(13);
+"纸张的宽："+ALLTRIM(STR(PaperInfo(thisform.combo1.displayValue,3)))+CHR(13);
+"纸张的高："+ALLTRIM(STR(PaperInfo(thisform.combo1.displayValue,4)))+CHR(13);
+"纸张的左边："+ALLTRIM(STR(PaperInfo(thisform.combo1.displayValue,5)))+CHR(13);
+"纸张的上边："+ALLTRIM(STR(PaperInfo(thisform.combo1.displayValue,6)))+CHR(13);
+"纸张的右边："+ALLTRIM(STR(PaperInfo(thisform.combo1.displayValue,7)))+CHR(13);
+"纸张的下边："+ALLTRIM(STR(PaperInfo(thisform.combo1.displayValue,8)))&&纸张的Id：或用ID方式PaperInfo(9,1)
Set Library To
