請教各位大大：

小弟使用WP-103S 的發票機，使用LPT1 連接，發票機在與錢櫃連接，

發票機手冊上有表示，傳送 ESC p 指令給 發票機，即可打開錢櫃，

請問怎麼 把 ESC p 傳給印表機呢？

以下是列印程式碼

procedure TForm1.Button1Click(Sender: TObject);

var
F:TEXTFILE;
begin
ASSIGNFILE(F,'LPT1');
REWRITE(F);
WRITELN(F,'商品：筆記本');
WRITELN(F,'數量：1 ');
WRITELN(F,'單價：100');
WRITELN(F,'總計：100');
WRITELN(F,' _ _ _ _ _ _ _');

怎麼把指令傳給發票機？????

CLOSEFILE(F);

end;

若單純要開錢櫃則程式碼如下:
AssignFile(F,'LPT1');
ReWrite(F);
Write(F, Chr($27) 'p0' Chr($50) Chr($250)); //開錢櫃
CloseFile(F);
若要列出文字,則在文字輸出時前後各加一組控制碼:
前控制碼:chr($1b) 'PB1'
後控制碼: chr($A)
例如要輸出文字為"商品：筆記本"則程式碼如下:
Write(F, chr($1b) 'PB1' '商品：筆記本' chr($A) );
希望對你有幫助.

===================引 用 文 章===================
請教各位大大：
小弟使用WP-103S 的發票機，使用LPT1 連接，發票機在與錢櫃連接，
發票機手冊上有表示，傳送 ESC p 指令給 發票機，即可打開錢櫃，
請問怎麼 把 ESC p 傳給印表機呢？
以下是列印程式碼
procedure TForm1.Button1Click(Sender: TObject);
var
F:TEXTFILE;
begin
ASSIGNFILE(F,'LPT1');
REWRITE(F);
WRITELN(F,'商品：筆記本');
WRITELN(F,'數量：1 ');
WRITELN(F,'單價：100');
WRITELN(F,'總計：100');
WRITELN(F,' _ _ _ _ _ _ _');

怎麼把指令傳給發票機？????
CLOSEFILE(F);
end;

mingking0947 大大：
程式碼如下：

procedure Test.cmdProofClick(Sender: TObject); var F:TEXTFILE; begin AssignFile(F,'LPT1'); ReWrite(F); Write(F, Chr($27) 'p0' Chr($50) Chr($250)); //開錢櫃 CloseFile(F); end;

按一下沒有反應，大按了很多下後......發票機卻列印出....opp'popp,......................
請問是那裡出問題了呢？

透過LPT的話,那應該要安裝廠商提供的驅動程式
我之前也都有這種問題
後來改成用COM Port了

開錢箱( ESC/P2 控制碼 )
assignfile(PrnF,'LPT1');
rewrite(PrnF);
writeln(PRNF,#27 'p' #0 #60 #255);
writeln(PRNF,#27#33#0);
CloseFile(PrnF);

------
歡迎在大陸的台商加入我們的行列
台商小棧 www.twgocn.com

可否請問大大問題己絕了?

因為小弟我沒碰過此類型 但是要做的東西跟大大一樣!!

所以可否問大大解決了?!

如果解決了可否提供點資訊 項試用了哪些元件及程式碼 可以提供原碼的話那小弟就真得感謝了