windows 2000 下如何自定义纸张大小?
解决方案 »
- 使用TRegExpr 中 正则表达式的问题
- 我们一般都看的看内网的IP和自己主机的IP,但是如何查看路由器外网的IP地址 ?
- webbrowser中如何捕获页面的window.close()操作?
- 怎样判断一个字符串是否包含一个子串
- 我现在有一个父窗口(mainwindow),和4个子窗口,子窗口名为,form1,form2,form3,form4,同时子窗口中都有一个涵数formok(str:string),现在
- "100"分寻求解ACCESS 2000 软件!密码大概13位
- 帮我弄一份GDI+的GDIPLUS.PAS,多谢!
- 对word文档内容的读取问题
- 给分给分!我要拨号上网的程序源码!
- 谁有中文版的winapi,给我寄一份哦!有分送哦!
- 关于TDBGrid的一个问题,多谢了
- 关于ClientDataSet的问题。
本人要在windows2000下开发一个票据打印模块,票据的类型有十几种,尺寸是五花八门,各式各样。因此为了用户使用上的方便,必须在打印时根据当前所打印的票据尺寸动态定义一个打印机纸张类型,打印完后再恢复原来设置。
(不要对我说向打印机发控制码!!)
begin
for J := Default to Custom do
begin
if cQRPaperTranslate[J] = DCResult[I] then
begin
FPaperSizes[J] := true;
break;
end
end
end;
FPaperSizes[Custom] := true; //强行将字定义纸张赋为true
这段代码是在qurpntr.pas的4654行左右 版本2.0
3.6版本的行数是2168左右,不过3.6版本的已经自动加上了这行加上以后,在NT下预览可以,但是打印还是不行,不知道是否是驱动的问题。
以上程序在delphi5+winnt/win2000下编译通过
是否要用API,如何实现?