有关打印机套打问题?

zhangkeus 2003-02-26 04:20:49
请问如何屏蔽掉报表中的静态文字,只打印动态文本,实现套打,
或者其他的实现套打的方法也可以?
...全文
62 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
shangxuesong 2003-02-28
  • 打赏
  • 举报
回复
安装好标准的打印机驱动程序,可以使用图形打印的方式
//下面是我写得可以准确的定位到任何位置
uses printers

Try //图形打印
with printer do begin
BeginDoc; //开始一个打印任务
Canvas.Font.Size :=12; //设置打印的字体
//这里你自己要调整。
Canvas.TextOut (150,55,r_SysInfo.StationName); //在150,50位置打出收费站名称
Canvas.TextOut (170,70,_getrmb(strtoint(vartostr(CarPrice))));
Canvas.TextOut (330,70,vartostr(CarPrice)+'元');
Canvas.TextOut (120,85,inttostr(r_TradeInfo.WayNo));
Canvas.TextOut (190,85,formatfloat('000000',r_Userinfo.No));
Canvas.TextOut (300,85,copy(datetimetostr(now()),3,2)+formatfloat('00000000',r_UserInfo.CurrentBillNo-1));
Canvas.TextOut (120,100,datetimetostr(date()));
Canvas.TextOut (300,100,timetostr(time) );
end;
Finally
printer.EndDoc; //结束一个打印任务
end;
taogou 2003-02-26
  • 打赏
  • 举报
回复
将控件的属性ENABLE:=FALSE;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧