大家好：
我是銀行柜員，請教大家二個問題：①針式存折列印機的硬字庫中是只有一種字體呢還是有好幾種字體？
②怎樣用VB來列印它的硬字庫中的字。比如要列印"中國農業銀行"，用VB代碼怎么寫？
謝謝指導!!!
uj5u.com熱心網友回復：
windows下的列印，一般都拋棄列印機自帶的字庫，一般都是轉換為影像之后輸出，字體你加人Window的的字庫里，然后選擇字庫即可控制面板-字體里面加
uj5u.com熱心網友回復：
樓上大俠，列印機硬字庫是在列印機中的，它的字體怎樣加入window的字庫中，請教了ouj5u.com熱心網友回復：
那就發送列印機命令，具體看列印機說明說明書啊uj5u.com熱心網友回復：
Private Sub Command1_Click()
Dim i As Integer
Open "LPT1" For Output As #1
Print #1, Chr(27); Chr(64) '清除原先的列印設定，即初始化
Print #1, Chr(28) & "@" '設定漢字狀態
pnt1
Print #1, Chr(28) & "J" '設定漢字縱向列印
pnt1
Print #1, Chr(28) & "K" '設定漢字橫向列印狀態
Print #1, Chr(27); "3"; Chr(45) '設定換行量寬度
Print #1, Chr(27); "W"; Chr(1) '設定四倍放大
Print #1, Chr(27); "q"; Chr(3) '設定空心字
pnt1
Print #1, Chr(27); Chr(64) '清除原先的列印設定，即初始化
For i = 3 To 24 Step 3 '執行字符間隔調整
Print #1, Chr(28); "S"; Chr(0); Chr(i)
pnt1
Next
Print #1, Chr(28); "S"; Chr(0); Chr(3)
Print #1, Chr(27); "4"; '設定斜體
Print #1, Chr(27); "q"; Chr(3) '設定空心字
pnt1
'Print #1, Chr(28) & "." '切換回西文狀態
Close #1
End Sub
Private Sub Form_Load()
Text1 = ""
Open "LPT1" For Output As #1
Print #1, Chr(27); Chr(64) '清除原先的列印設定，即初始化
Close
End Sub
Public Sub pnt1()
Print #1, , "LPT1:" & "帶有心臟的中英文列印機"
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/145043.html
標籤：VB基礎類