POS小票打印(20分)

POS小票打印，要如何控制走纸，就是有多少内容，纸张出多少！
除了直接控制打印，还有什么方法嘛，如用报表等！

根据记录数计算纸的长度，再设置即可。

普通针式打印机可以，但小票打印机的长度，不让设，设了他自动还原！

我用的是pos58型　的小票打印机

象小票这种简单的打印直接输出到LPT口就可以了，需要对齐的话可以先
格式化字串再输出啊，我一直这么作，效果很好。

能不能提供你打印的那段源代码，我看过一些，不过很多细化问题，难作，比如，商品名格式化等

pos58直接发指令集给它就可以了！说明书上有！

直接使用指令。
这是我开发POS时的代码。其中:#$0a 是走纸指令。
function TFixtureControl.GoPaper():Boolean;
var
MYFile:TextFile;
begin
try
Assignfile(MyFile,'lpt1');
Rewrite(MyFile);
Writeln(MyFile,#$0a);
System.CloseFile(MyFile);
Result:=true;
except
Result:=true;
end;
end;

// 向LPT口打印一个文本文件
procedure TPosFrm.PrintFile(AFileToPrint: string);
var
Port, FileToPrint: TextFile;
ALine: string;
begin
AssignFile(FileToPrint, AFileToPrint);
Reset(FileToprint);
AssignFile(Port, 'LPT1');
Rewrite(Port);
while not Eof(FileToPrint)do
begin
Readln(FileToPrint, ALine);
Writeln(Port, ALine);
end;
CloseFile(Port);
CloseFile(FileToPrint);
end;

// 打印小单
// 输出到文本，稍后再输出到LPT1端口；
OutFile:=ExtractFilePath(Application.ExeName)+'output.txt';
AssignFile(F, OutFile);
Rewrite(F);
CompanyTitle:=SysParms.CompanyTitle+'购物清单';
CompanyTitle:=StringOfChar(' ', (32-Length(CompanyTitle)) div 2)+CompanyTitle;
Writeln(F, CompanyTitle);
Writeln(F,'--------------------------------');
// Writeln(F,'收银机:'+EdPosID.Text+' 单号:'+EdSaleID.Text);
// Writeln(F,'收银员:'+EdOpID.Text+ ' 日期:'+EdSaleDate.Text);
Write(F,'收银员:', Format('%-10s', [STOpID.Caption]));
Writeln(F, '单号:'+STSaleID.Caption);
Writeln(F,'日期:'+STSaleDate.Caption+ ' 时间:'+FormatDateTime('hh:mm:ss', Now));
Writeln(F,'--------------------------------');
// 12345678901234567890123456789012
Writeln(F,'商品名称 数量 单价 金额');
ADSSaleList.DisableControls;
ADSSaleList.First;
while not ADSSaleList.Eofdo
begin
MerName:=ADSSaleList.FieldValues['MerName'];
len:=Length(MerName);
if len < 18 then
MerName:=MerName+StringOfChar(' ', 18-len);
if (len mod 2) = 0 then
Write(F, Copy(MerName, 1, 18))
else
Write(F, (Copy(MerName, 1, 17)+' '):18);
Write(F, ADSSaleList.FieldValues['Qty']:2);
Write(F, FormatFloat('0.0', ADSSaleList.FieldValues['Price']):6);
Writeln(F, FormatFloat('0.0', ADSSaleList.FieldValues['Amount']):6);
ADSSaleList.Next;
end;
ADSSaleList.EnableControls;
Writeln(F,'--------------------------------');
Writeln(F,'合计:',STHj.Caption:8, ' 让利:', STRl.Caption:8);
Writeln(F,'实收:',STSs.Caption:8, ' 金卡:',
FormatCurr('0.00', CardPayment):8
);
Writeln(F,'现金:',
FormatCurr('0.00', StrToCurr(EdCash.Text)-CardPayment):8,
' 找补:', STBack.Caption:8
);
Writeln(F,' ');
//空行，添加或减少空行即可控制出纸多少。
...
PrintFile(Outfile);
// 输出文件到打印口

输出如下例：
XX化妆品世界购物清单
--------------------------------
收银员:01 单号:000000329
日期:2003-07-16 时间:17:53:28
--------------------------------
商品名称 数量 单价 金额
8g华美健强力消痘乳 4 16.0 64.0
小口红 1 5.0 5.0
180g隆力奇蛇胆不紧 3 20.8 62.4
速效脱毛露 2 7.5 15.0
美容海藻面膜 3 18.0 54.0
蕾琪唇彩 1 12.0 12.0
.....
--------------------------------
合计: 2058.40 让利: 0.00
实收: 2058.40 金卡: 0.00
现金: 2100.00 找补: 41.60

因宽度只有58mm，故商品名切去部分。

你的商品名称可以取商品的简称呀。

给端口发送指令的方法只能使用于对于简单文字的打印，不能使用于对复杂报表的打印。并且不能使用于对打印字体的改变。

楼上的兄弟，58mm宽的纸你觉得可以做什么样的报表呀。
商品清单可是给顾客看的，一般小票打印机的默认字体已经很小了。
很多顾客可是上了年纪的。

我的意思是说，用指令的方式打印出来的东西没有办法设置字体的大小，所以不太方便。

一般POS都是直接写LPT的，而不用图形打印
我的系统也是这么做的：
http://gdljc.yeah.net

有的pos打印是输一条记录，打印一条记录，这怎么实现呢？

谢　谢　各位，我分不多了，不要见笑，就这么点　了