这是收费站的收费发票打印程序,不知适用不?
(打印票据程序)
VAR
lpt :TextFile;
begin
AssignFile(lpt,'LPT1');
ReWrite(lpt);
Write(lpt,' '+'1'+' '+'61312');//打印车道号、工号
Write(lpt, #10+#10+#10);
//打印机换行
Write(lpt,' '+'二类车'+' '+'10元');//打印车型、收费金额
Write(lpt, #10+#10);
//打印机换行
Write(lpt,' '+datetostr(date));//打印日期
Write(lpt, #10+#10+#10);
//打印机换行
Write(lpt,' '+timetostr(time));//打印时间
Write(lpt, #10+#10+#10+#10+#10+#10+#10+#10+#10+#10+#10+#10+#10+#10+#10+#10);
//打印机换页(#12)
CloseFile( lpt );
end;