2012年11月25日 星期日

EPSON-PRU-420 列印

引用來源
---
Private Sub Command35_Click()
   Dim CMD As String, EJECT As String, OPENDRAW As String
   Dim Data As String
   'OPENDRAW = Chr(27) + Chr(27)  '<==RP-U420的開錢櫃命令不是這樣子的,請查RP-U420的命令手冊
   Data = Chr(27) + "c0" + Chr(2)  '<==只列印收執聯命令只要下一次即可,其後就保持在同一狀態
   Data = Data & "日期:2008/12/11 機號:1" & Chr(13) & Chr(10)
   Data = Data & "----------------------" & Chr(13) & Chr(10)
   Data = Data & "筆記型電腦    1  12500" & Chr(13) & Chr(10)
   Data = Data & "液晶螢幕      1  12000" & Chr(13) & Chr(10)
   Data = Data & "----------------------" & Chr(13) & Chr(10)
   Data = Data & "合計:            24500" & Chr(13) & Chr(10)
   Data = Data & "收現:35000 找零:500   " & Chr(13) & Chr(10)
   '要保持9列空白以讓資料出至裁切之後
   Data = Data & CHR(27) & "d" & CHR(9)  '<==跳9列空白,只要一道指定即可(詳情請看RP-U420命令手冊)
   Data = Data & Chr(29) + Chr(86) + Chr(1) '切紙
   Call Send2Driver(Data, "Epson LQ-300 ESC/P 2") 
End Sub

沒有留言:

張貼留言