L
lfqbl
Unregistered / Unconfirmed
GUEST, unregistred user!
with Printerdo
begin
Printer.Canvas.Font.Name :='宋体';
Printer.Canvas.Font.Size:=8;
begin
doc;
Canvas.TextOut (x+47,y+24,curinvno.Caption );
canvas.TextOut(x+126,y+24,curinvno.caption);
canvas.TextOut (x+43,y+31,Consumer);
canvas.TextOut (x+52,y+38,Edit1.Text );
canvas.TextOut (x+30,y+50,TabItem.fieldbyname('ItemName').AsString);
canvas.TextOut (x+140,y+50,IntToStr(TabItem.fieldbyname('money').AsInteger));
canvas.TextOut (x+67,y+73,numtochi(StrToInt(Amount.caption)));
canvas.TextOut (x+125,y+80,DateToStr(now));
enddoc;
end;
begin
Printer.Canvas.Font.Name :='宋体';
Printer.Canvas.Font.Size:=8;
begin
doc;
Canvas.TextOut (x+47,y+24,curinvno.Caption );
canvas.TextOut(x+126,y+24,curinvno.caption);
canvas.TextOut (x+43,y+31,Consumer);
canvas.TextOut (x+52,y+38,Edit1.Text );
canvas.TextOut (x+30,y+50,TabItem.fieldbyname('ItemName').AsString);
canvas.TextOut (x+140,y+50,IntToStr(TabItem.fieldbyname('money').AsInteger));
canvas.TextOut (x+67,y+73,numtochi(StrToInt(Amount.caption)));
canvas.TextOut (x+125,y+80,DateToStr(now));
enddoc;
end;