各位大大: 1.這是我寫的部份,但有時可以印有時卻印不出來,不知那出了問題,請有寫過的大大幫忙. 2.還是有其他的大大之前有寫過,可以讓我參考看看,謝謝     

 VAR
   cb : DCB;
   S, A, B, data : STRING;
   dwfile : DWORD;
   vCom : STRING;
   hComm : THandle;
BEGIN
   vCom := 'COM4';       hComm := CreateFile(PChar(vCom), Generic_Read OR Generic_Write, 0, NIL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
   BuildCommDCB(pchar('9600,n,8,1'), cb);
   SetCommState(hComm, cb);
   Sleep(300);
   SetCommState(hComm, cb);
   //*設定通訊埠*/       s := format('%s', [#$1B   'R'   #$13]);
   WriteFile(hComm, s, length(s), dwfile, NIL);       a := format('%s', [#$1B   'P'   'B'   '1']);
   b := format('%s', [#$13]);
   data := format('%s', ['adfasdfasf']);
   WriteFile(hComm, a, length(a), dwfile, NIL);
   Sleep(30);
   WriteFile(hComm, data[1], length(data), dwfile, NIL);
   Sleep(30);
   WriteFile(hComm, b, length(b), dwfile, NIL);
   Sleep(30);
   CloseHandle(hComm);

手冊 page14 , 印表機測試, (2) 通訊介面資料測試 按住 [連線/蓋章]鍵, 然後開機, 產生Beep聲, 進入dump mode 此後, 每滿 8 byte 的資料傳送, 將會自動列印你送進機器的code. 我猜,你的程式不穩定的因素是 : sleep 整串命令送進去就好, PB1 內容 chr(13) , 中間不必叫電腦停下來等 還有,建議不要透過 CreateFile 送COM的資料, 不確定因素較多 找個 RS232 通訊阜元件來用會比較好

以前寫過,整串給你,希望對你有幫助.. 送出comport自己寫喔 _WriteToCom(testcom, CHR(27) CHR(27) 'G' CHR(13));//開錢櫃 _WriteToCom(testcom, CHR(27) CHR(27) 'P' 'B' '1' '輸出的字串' CHR(13));//文字輸出 _WriteToCom(testcom, CHR(27) CHR(27) 'P' 'B' '1' CHR(13));//跳一行 _WriteToCom(testcom, CHR(27) CHR(27) 'V' 'B' CHR(13));//裁紙 請注意 ! wp520有二種字集 一是wp字集,一是epson字集 帥哥

------
帥哥

謝謝兩位大大的回應,我大概知道那裡出問題了 如同cwc65536大大所說 我把他合併一起送出去就可以了     

 Buffer := chr(27)   'P'   c1   c2;
         buff := chr(13);
         data := Buffer   data   buff;
         WriteFile(hPrn, data[1], length(data), dwfile, NIL);