冬 冬天里的一把火 Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-16 #1 本人用Winxp+Delphi7做了一个增值税打印程序，但是在win98下就错位了，不知道能不能设定每个控件在纸上的坐标来固定打印位置？100分送上,不够的话可以再加
C c2008 Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-16 #2 把字体设置好就没问题，这个问题主要是winnt（2000，xp）和win98使用的字符集不同造成的问题，但是宋体是通用的（delphi的默认字体不是宋体），9号字最好看
Z zhyesno Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-16 #3 直接用tprint打印。 use Printers; Printer.Canvas.Font.Size:=14; Printer.Canvas.Font.Name:='宋体'; Printer.begin Doc; Printer.Canvas.TextOut(x,y,'内容'); printer.enddoc;
直接用tprint打印。 use Printers; Printer.Canvas.Font.Size:=14; Printer.Canvas.Font.Name:='宋体'; Printer.begin Doc; Printer.Canvas.TextOut(x,y,'内容'); printer.enddoc;
冬 冬天里的一把火 Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-16 #4 不能用tprint打印，因为我的数据是从数据库中得到的，并且要显示多条记录。能设QRDBText的坐标吗?
冬 冬天里的一把火 Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-18 #6 zhyesno，你能说具体点儿吗？如何循环打印呀?谢谢！
D dqwalen Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-23 #7 Printer.Canvas.Font.Size:=12; Printer.Canvas.Font.Name:='宋体'; Printer.begin Doc; Table1.First; while not Table1.Eofdo begin Printer.Canvas.TextOut(x,y,Table1.Fields[0].AsString); ...... Table1.Next; end; printer.enddoc;
Printer.Canvas.Font.Size:=12; Printer.Canvas.Font.Name:='宋体'; Printer.begin Doc; Table1.First; while not Table1.Eofdo begin Printer.Canvas.TextOut(x,y,Table1.Fields[0].AsString); ...... Table1.Next; end; printer.enddoc;
