急,DELPHI编程如何控制小票打印(如超市的收银打印),高分!! 小弟编一销售程序,可客户要小票打印。就是对顾客所买的东西,付了多少钱,找还多少钱,店名等进行打印。怎么实现,和普通的报表打印一样吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses Printers; with Printer do begin BeginDoc;//开始 Canvas.Font.Size:=10; Canvas.Font.Name:='宋体'; Canvas.TextOut(10,0,' '+SysMarketName+'超市交班凭据'); //一条条往里面加内容 EndDoc;//结尾发送打印命令 end; end; Canvas.TextOut(10,0,' '+SysMarketName+'超市凭据');改成Canvas.TextOut(10,0,' '+'XXXXXX超市凭据');SysMarketName是我程序里的变量 直接向打印机端口输出就OK了。。但是你最好要控制好你的输出格工。。writeln('LPT1','你要输出的 内容')其它的语句你可以自已写。。很简单的。。DELPHI5开发人员指南上面的一章专门说这个的。。去搞一本来看吧。。很不错的。。 噢,对了,我那个程序是在装了打印驱动以后那么做的!我的打印机是EPSON TMU210系列的!好运! DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问 如何制作程序开始前的欢迎窗口 可否將Excel中的數據導入SQL Server或Access中? 请有联锁系统开发经验的看过来 大侠帮忙啊!!! 請問有人知道如何用Delphi寫收發傳真的程式? 工资计算器 各位老大,help me! 帮别人问的问题 关于Linux这个破操作系统! 急用!求 对实数进行“四舍五入”的函数! 咦,我的信誉分怎么会被扣了,我大部分的贴子都有结啊,郁闷......
with Printer do
begin
BeginDoc;//开始
Canvas.Font.Size:=10;
Canvas.Font.Name:='宋体';
Canvas.TextOut(10,0,' '+SysMarketName+'超市交班凭据');
//一条条往里面加内容
EndDoc;//结尾发送打印命令
end;
end;
改成
Canvas.TextOut(10,0,' '+'XXXXXX超市凭据');
SysMarketName是我程序里的变量
DELPHI5开发人员指南上面的一章专门说这个的。。
去搞一本来看吧。。很不错的。。
我的打印机是EPSON TMU210系列的!好运!