打印.txt

支票打印

var
   w,h,m,n,i,j:integer;
   str1:string;
begin
w:=GetDeviceCaps(printer.Handle,LOGPIXELSX);
h:=GetDeviceCaps(printer.Handle,LOGPIXELSY);
try
 with printer do begin
  Canvas.Font.Name:='宋体';
  Canvas.Font.Size:=12;
  begindoc;
  Canvas.TextOut(round(w*90/25.4),round(h*11/25.4),adotable1.fieldbyname('出票年').asstring);
  canvas.TextOut(round(w*115/25.4),round(h*11/25.4),adotable1.fieldbyname('出票月').asstring);
  canvas.TextOut(round(w*130/25.4),round(h*11/25.4),adotable1.fieldbyname('出票日').asstring);
  canvas.Font.size:=10;
  canvas.TextOut(round(w*80/25.4),round(h*17/25.4),adotable1.fields[3].asstring);
  canvas.Font.Size:=11;
  canvas.TextOut(round(w*170/25.4),round(h*17/25.4),adotable1.fieldbyname('出票人帐号').asstring);
  canvas.Font.Size:=12;
  canvas.TextOut(round(w*85/25.4),round(h*22/25.4),adotable1.fieldbyname('大写金额').asstring);
  str1:=inttostr(trunc(adotable1.fieldbyname('小写金额').asfloat*100));
  label5.Caption:=str1;
  n:=length(str1);
  j:=1;
  for i:=12-n to 11 DO
   begin
    sz[i].ch:=copy(str1,j,1);
    j:=j+1;
   end;
  for i:=12-n to 11 do
  canvas.TextOut(sz[i].x,sz[i].y,sz[i].ch);
  canvas.Font.Name:='宋体';
  canvas.Font.Size:=12;
  m:=trunc(w*72/25.4);
  canvas.TextOut(m,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,1,1));
  canvas.TextOut(m+20,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,2,1));
  canvas.TextOut(m+40,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,3,1));
  canvas.TextOut(m+60,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,4,1));
  canvas.TextOut(m+80,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,5,1));
  canvas.TextOut(m+100,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,6,1));
  canvas.TextOut(m+120,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,7,1));
  canvas.TextOut(m+140,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,8,1));
  canvas.TextOut(m+160,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,9,1));
  canvas.TextOut(m+180,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,10,1));
  canvas.TextOut(m+200,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,11,1));
  canvas.TextOut(m+220,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,12,1));
  canvas.TextOut(m+240,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,13,1));
  canvas.TextOut(m+260,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,14,1));
  canvas.TextOut(m+280,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,15,1));
  canvas.TextOut(m+300,round(h*75/25.4),copy(adotable1.fieldbyname('支付密码').asstring,16,1));
 end;
 finally
  printer.EndDoc;
end;
end;