W
whsunbin
Unregistered / Unconfirmed
GUEST, unregistred user!
如何通过Epson TM-U210A打印机，让钱箱自动弹出<br>我到Epson网站上查找后只有一个VB的例子<br>Print #1 chr(27)+chr(112)+chr(0)+chr(50)+chr(250)<br>请问如何转换为Delphi代码，结合打印小票的报表（报表我已做好）。<br>100分送上
Z
zhihuali
Unregistered / Unconfirmed
GUEST, unregistred user!
看下面的贴子吧。<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=220763
L
longdiao
Unregistered / Unconfirmed
GUEST, unregistred user!
var<br>itemfile:textfiel;<br>begin<br> assignprn(itemfile);<br> printer.canvas.Font.Name := 'control';<br> rewrite(itemfile);<br> write(itemfile, 'A'); //一旦接受到这条命令，钱柜便打开。<br>//reset to normal<br> write(itemfile, 'G');<br> closefile(itemfile); <br>end;
W
whsunbin
Unregistered / Unconfirmed
GUEST, unregistred user!
To:Longdiao<br> 用你的方法钱箱弹出时会自动切纸，然后再打印单据，这样好象不对。<br>
Z
ziyu
Unregistered / Unconfirmed
GUEST, unregistred user!
我们用的pos58 的指令是Chr(27)+'p'+chr(0)+chr(60)+chr(255)<br>要用到Aspcomm.pas<br> Comm1: Tcomm;<br> <br>function com_init1( baud
word):Boolean;Stdcall; //初始<br>begin<br> try<br> with comm1 do<br> begin<br> CommName := 'COM1';<br> BaudRate := baud;<br> Parity := Space;<br> ParityCheck := True;<br> Outx_XonXoffFlow := False;<br> Inx_XonXoffFlow := False;<br> StartComm; //打开<br> end;<br> Result := True;<br> except<br> Result := False;<br> end;<br>end;<br><br> function com_rest1:Boolean;Stdcall; //关闭<br> begin<br> try<br> comm1.StopComm;<br> Result := true;<br> except<br> Result := False;<br> end;<br> end;<br><br>comm1.free; //释放<br><br><br>function com_send2(buf
Char; len:Word):Boolean;stdcall;<br>begin<br> Result := Comm2.WriteCommData(buf, len); //写com口<br>end;<br><br><br>var<br> buf: String;<br>begin<br> buf := (Chr(27)+'p'+chr(0)+chr(60)+chr(255));<br> Comm1.WriteCommData(Pchar(buf), len)<br>end;<br><br>你的Epson TM-U210A我不清楚是不是串口热敏打印机,如果是的话,那把buf改一下应该也可以了
word):Boolean;Stdcall; //初始<br>begin<br> try<br> with comm1 do<br> begin<br> CommName := 'COM1';<br> BaudRate := baud;<br> Parity := Space;<br> ParityCheck := True;<br> Outx_XonXoffFlow := False;<br> Inx_XonXoffFlow := False;<br> StartComm; //打开<br> end;<br> Result := True;<br> except<br> Result := False;<br> end;<br>end;<br><br> function com_rest1:Boolean;Stdcall; //关闭<br> begin<br> try<br> comm1.StopComm;<br> Result := true;<br> except<br> Result := False;<br> end;<br> end;<br><br>comm1.free; //释放<br><br><br>function com_send2(bufChar; len:Word):Boolean;stdcall;<br>begin<br> Result := Comm2.WriteCommData(buf, len); //写com口<br>end;<br><br><br>var<br> buf: String;<br>begin<br> buf := (Chr(27)+'p'+chr(0)+chr(60)+chr(255));<br> Comm1.WriteCommData(Pchar(buf), len)<br>end;<br><br>你的Epson TM-U210A我不清楚是不是串口热敏打印机,如果是的话,那把buf改一下应该也可以了
W
whsunbin
Unregistered / Unconfirmed
GUEST, unregistred user!
我已解决此问题方法是在<br>QuickRep1StartPage事件中加入以下代码<br> FontN:=QuickRep1.Printer.Canvas.Font.Name;<br> QuickRep1.Printer.Canvas.Font.Name:='control';<br> QuickRep1.Printer.Canvas.TextOut(0,0,'A');<br> QuickRep1.Printer.Canvas.Font.Name:=FontN;<br>谢谢各位！