有关打印机套打问题？

Question

请问如何屏蔽掉报表中的静态文字，只打印动态文本，实现套打，
或者其他的实现套打的方法也可以？

Answer 1

安装好标准的打印机驱动程序，可以使用图形打印的方式
//下面是我写得可以准确的定位到任何位置
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;