如打印2个A(A的内容多少都基本一样)
printer.begin
Doc;
XTmp := DM.DYWTableSetup.FieldByName('X座标').asInteger;
YTmp := DM.DYWTableSetup.FieldByName('Y座标').asInteger;
for i := 1 to 2do
begin
for j:=1 to DBRICHEDIT2.lines.Countdo
begin
Printer.Canvas.TextOut(XTmp, YTmp, DBRichEdit1.Lines.Strings);
YTmp := Ytmp + 140;
end;
YTmp:=YTmp+140;
end;
printer.EndDoc;
end;
以上因我现在无打印机,无法测试.你可以试试.是打印dbrichedit1内容的2份.
如不对或哪位有意见,呵,请提!
改成其他格式我想也简单欢迎继续讨论.
