pos打印问题 ( 积分: 50 )

最近在做一个超市的管理系统，但在打印时遇到了些问题，打印时只能打印一个表头，中间的内容打印不出来，请哪位大侠指点一下。<br>我用的是Assignfile(Myfile,'lpt1')<br>有没有其他好的方法，但是也不要太麻烦了。

原理：直接对“LPT1”端口进行输出，使用此种方式打印速度是最快的。<br><br>对文本文件进行写操作，当文本文件的文件名为“LPT”或“COM”等保留字里，即是对指定端口写。<br><br>源代码截自“吉胜超市POS”&nbsp;<br>my:='lpt1';&nbsp;<br>filehandle:=fileopen(my,fmopenwrite);&nbsp;<br>fileclose(filehandle);<br>if&nbsp;filehandle&lt;0&nbsp;then<br>begin<br>messagebox(handle,'lpt1错误','错误',mb_iconerror);<br>exit;<br>end<br>else<br>begin<br>assignfile(tf,my);<br>rewrite(tf);<br>writeln(tf,chr(27)+chr(112)+chr(0)+chr(18)+chr(22));&nbsp;<br>with&nbsp;query1&nbsp;do<br>begin<br>sql.Clear;<br>sql.Add('select&nbsp;企业名称&nbsp;from&nbsp;企业档案');<br>close;<br>open;<br>end;<br>writeln(tf,'&nbsp;'+query1.fieldbyname('企业名称').AsString);&nbsp;<br>if&nbsp;strtofloat(label6.Caption)&lt;0&nbsp;then<br>writeln(tf,'&nbsp;'+'退货单')<br>else<br>writeln(tf,'&nbsp;'+'销售单');<br>writeln(tf,'流&nbsp;水&nbsp;号:'+form1.StatusBar1.Panels[1].Text);<br>writeln(tf,'销售日期:'+datetimetostr(now));<br>writeln(tf,'收&nbsp;款&nbsp;员:'+form1.StatusBar1.Panels[3].Text);<br>writeln(tf,'--------------------------------');<br>writeln(tf,'商品编码'+'&nbsp;'+'数量'+'&nbsp;'+'单价'+'&nbsp;'+'金额');<br>writeln(tf,'--------------------------------');<br>for&nbsp;a:=1&nbsp;to&nbsp;form1.StringGrid1.RowCount-2&nbsp;do<br>begin<br>writeln(tf,form1.StringGrid1.Cells[2,a]);&nbsp;<br>writeln(tf,form1.StringGrid1.Cells[1,a]+'&nbsp;'+form1.StringGrid1.Cells[5,a]+'&nbsp;'+form1.StringGrid1.Cells[4,a]+'&nbsp;'+form1.StringGrid1.Cells[6,a]);&nbsp;<br>end;<br>writeln(tf,'--------------------------------');<br>writeln(tf,'合计金额:'+'&nbsp;'+Label8.Caption);<br>writeln(tf,'找零金额:'+'&nbsp;'+label9.Caption);<br>writeln(tf,'谢谢惠顾,欢迎下次光临');<br>writeln(tf,'请妥善保管您的电脑小票');<br>writeln(tf,'');&nbsp;<br>writeln(tf,'');<br>writeln(tf,'');<br>writeln(tf,'');<br>writeln(tf,'');<br>closefile(tf);

这样做是不是对所有打印机都有效,还是只对有硬字库的打印机才有效呢?

小弟，现在也在写一个drp系统，看来这位大哥开工比我早啊。<br>不知能否提供一些事例源码作开发参考，小弟深表感谢！[]

正如丁堡所说

只对有硬字库的打印机才有效