谁有这样的代码?我的只能打横线,但怎么来大竖线?UP有分

Question

Printer.BeginDoc;
  Printer.Canvas.Font.Name:='宋体';
  Printer.Canvas.Font.Size:=11;
  Printer.Canvas.TextOut(450,100,'（电费交纳单）');
  Printer.Canvas.TextOut(500,150,'时间：'+'2002-12-12');
  Printer.Canvas.TextOut(100,190,'------------------------------------------------------------------------------------');
  Printer.Canvas.TextOut(100,200,'|');
  Printer.Canvas.TextOut(100,210,'|');
  Printer.Canvas.TextOut(100,220,'名称 '+'   上期用电（元）   本期用电（度）   实际用电   单价    金额');
  Printer.Canvas.TextOut(100,250,'------------------------------------------------------------------------------------');
  Printer.EndDoc;
谁有这样的代码?
我的只能打横线,但怎么来大竖线?
谢谢

Answer 1

var i : integer;
begin
for i:=1 to 100 do form1.Canvas.TextOut(100,10*i,'|');end;

Answer 2

Printer.Canvas.polyline([point(x,y),point(x1,y1)]);

Answer 3

竖线这样
Printer.Canvas.polyline([point(x,y),point(x,y+100)]);
横线
Printer.Canvas.polyline([point(x,y),point(x+100,y)]);

Answer 4

printer.canvas.lineto(point(x,y),point(x2,y2))横线竖线随便打.

Answer 5

Printer.BeginDoc;
  Printer.Canvas.Font.Name:='宋体';
  Printer.Canvas.Font.Size:=10;
  //                     列   行   
  Printer.Canvas.TextOut(470,100,'小坝干菜批发市场（电费交纳单）');
  Printer.Canvas.TextOut(550,150,'时间：'+'2002-12-12');
  Printer.Canvas.TextOut(100,190,' ----------------------------------------------------------------------------------------------');
  Printer.Canvas.polyline([point(100,200),point(100,460)]);//第一条线
  Printer.Canvas.Polyline([point(210,200),point(210,460)]);//第二条线
  Printer.Canvas.Polyline([point(380,200),point(380,390)]);//第三条线
  Printer.Canvas.Polyline([point(580,200),point(580,390)]);//第四条线
  Printer.Canvas.Polyline([point(780,200),point(780,390)]);//第五条线
  Printer.Canvas.Polyline([point(980,200),point(980,390)]);//第六条线
  Printer.Canvas.Polyline([point(1180,200),point(1180,460)]);//第七条线
  Printer.Canvas.Polyline([point(1330,200),point(1330,460)]);//最后一条线
  Printer.Canvas.TextOut(100,220,' 名称 ');
  Printer.Canvas.TextOut(220,220,'111111111111');
  Printer.Canvas.TextOut(400,220,'上期用电（度）');
  Printer.Canvas.TextOut(600,220,'本期用电（度）');
  Printer.Canvas.TextOut(800,220,'实际用电（度）');
  Printer.Canvas.TextOut(1000,220,'单价（度/元）');
  Printer.Canvas.TextOut(1200,220,'金额（元）');
  Printer.Canvas.TextOut(100,250,' ----------------------------------------------------------------------------------------------');
  Printer.Canvas.TextOut(100,290,' 门市');
  Printer.Canvas.TextOut(220,290,'1区8栋12号');
  Printer.Canvas.TextOut(440,290,'123');
  Printer.Canvas.TextOut(640,290,'.00');
  Printer.Canvas.TextOut(860,290,'方');
  Printer.Canvas.TextOut(1050,290,'.00元');
  Printer.Canvas.TextOut(1220,290,'.00元');
  Printer.Canvas.TextOut(100,320,' ----------------------------------------------------------------------------------------------');
  Printer.Canvas.TextOut(100,350,' 住房');
  Printer.Canvas.TextOut(220,350,'1区8栋12号');
  Printer.Canvas.TextOut(440,350,'4555');
  Printer.Canvas.TextOut(640,350,'.00');
  Printer.Canvas.TextOut(860,350,'方');
  Printer.Canvas.TextOut(1050,350,'.00元');
  Printer.Canvas.TextOut(1220,350,'.00元');
  Printer.Canvas.TextOut(100,390,' ----------------------------------------------------------------------------------------------');
  Printer.Canvas.TextOut(100,420,'合计大写');
  Printer.Canvas.TextOut(220,420,'.00元');
  Printer.Canvas.TextOut(1220,420,'100');
  Printer.Canvas.TextOut(100,460,' ----------------------------------------------------------------------------------------------');
  Printer.Canvas.TextOut(100,480,'收费单位:');
  Printer.canvas.textout(900,480,'收费员:'+'经济');
  Printer.EndDoc;