询问关于票据打印方面的思路

[麦子VISA]

打印的其实是一个类似户口簿的证件，在窗体中的各个edit中输入信息后，将输入的信息打印到证件上的相应的信息框中..

请提供思路或代码...谢谢~~~~

[麦子VISA]

3Q

[ksaiy]

我这个是画线的自定义表格。你可以修改一下,控制位置就可以了:

procedure TDPrintFrm.SpeedButton1Click(Sender: TObject);
var
Year,Month,Day:Word;
DateTime:String;
begin

DecodeDate(now,Year,Month,Day);
DateTime:=Format('%d-%d-%d',[Year,Month,Day]);
Printer.BeginDoc;
Printer.Canvas.Font.Name:='宋体';
Printer.Canvas.Font.Size:=10;
// 列 行
Printer.Canvas.TextOut(480,130,DianFrm.Combobox2.text+'（电费交纳单）');
Printer.Canvas.TextOut(100,190,' ----------------------------------------------------------------------------------------------');
Printer.Canvas.polyline([Point(100,200),Point(100,530)]);//第一条线
Printer.Canvas.Polyline([point(210,200),point(210,530)]);//第二条线
Printer.Canvas.Polyline([point(380,200),point(380,460)]);//第三条线
Printer.Canvas.Polyline([point(580,200),point(580,460)]);//第四条线
Printer.Canvas.Polyline([point(780,200),point(780,460)]);//第五条线
Printer.Canvas.Polyline([point(980,200),point(980,460)]);//第六条线
Printer.Canvas.Polyline([point(1180,200),point(1180,530)]);//第七条线
Printer.Canvas.Polyline([point(1330,200),point(1330,530)]);//最后一条线
Printer.Canvas.TextOut(100,220,' 名称 ');
Printer.Canvas.TextOut(220,220,DianFrm.Edit1.Text);
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,DianFrm.Edit2.Text+DianFrm.Label1.caption+DianFrm.Edit3.text+DianFrm.Label2.caption+DianFrm.Edit4.text+DianFrm.Label3.Caption);
Printer.Canvas.TextOut(440,290,DianFrm.Edit5.Text);
Printer.Canvas.TextOut(640,290,DianFrm.Edit6.Text);
Printer.Canvas.TextOut(860,290,DianFrm.Edit7.Text);
Printer.Canvas.TextOut(1050,290,DianFrm.Edit8.Text);
Printer.Canvas.TextOut(1230,290,DianFrm.Edit9.Text);
Printer.Canvas.TextOut(100,320,' ----------------------------------------------------------------------------------------------');
Printer.Canvas.TextOut(100,360,' 住房');
Printer.Canvas.TextOut(220,360,DianFrm.Edit10.Text+DianFrm.Label4.Caption+DianFrm.Edit11.Text+DianFrm.Label5.Caption+DianFrm.Edit12.Text+DianFrm.Label6.Caption);
Printer.Canvas.TextOut(440,360,DianFrm.Edit13.Text);
Printer.Canvas.TextOut(640,360,DianFrm.Edit14.Text);
Printer.Canvas.TextOut(860,360,DianFrm.Edit15.Text);
Printer.Canvas.TextOut(1050,360,DianFrm.Edit16.Text);
Printer.Canvas.TextOut(1220,360,DianFrm.Edit17.Text);
Printer.Canvas.TextOut(100,390,' ----------------------------------------------------------------------------------------------');
Printer.Canvas.TextOut(100,430,' 住房');
Printer.Canvas.TextOut(220,430,DianFrm.Edit18.Text+DianFrm.Label7.Caption+DianFrm.Edit19.Text+DianFrm.Label8.Caption+DianFrm.Edit20.Text+DianFrm.Label10.Caption);
Printer.Canvas.TextOut(440,430,DianFrm.Edit21.Text);
Printer.Canvas.TextOut(640,430,DianFrm.Edit22.Text);
Printer.Canvas.TextOut(860,430,DianFrm.Edit23.Text);
Printer.Canvas.TextOut(1050,430,DianFrm.Edit24.Text);
Printer.Canvas.TextOut(1220,430,DianFrm.Edit25.Text);
Printer.Canvas.TextOut(100,460,' ----------------------------------------------------------------------------------------------');
Printer.Canvas.TextOut(100,500,'合计大写');
Printer.Canvas.TextOut(220,500,DianFrm.Edit26.Text);
Printer.Canvas.TextOut(1230,500,DianFrm.Edit27.Text);
Printer.Canvas.TextOut(100,530,' ----------------------------------------------------------------------------------------------');
Printer.Canvas.TextOut(100,580,'收费单位:'+DianFrm.ComboBox2.Text);
Printer.canvas.textout(580,580,'收费员:'+DianFrm.ComboBox1.Text);
Printer.Canvas.TextOut(980,580,'时间：'+DateTime);
Printer.EndDoc;
end;

[wenhao_76]

如果你是套打的话,需要注意打印头定位的问题,现在看来很难定准,我的意思是你放纸不可能每次都放到同一个位置,这样打出来的东西就会在不同的位置