打印机默认打印字体是“宋体”，如何改变字体呢？特别是数字字体。 使用打印指令，不需要驱动的方式。
打印机默认打印字体是“宋体”，如何改变字体呢？特别是数字字体。 使用打印指令，不需要驱动的方式。我使用的是 得实 DS2600II，其他人的程序是能实现的了。我现在要自行开发。 --------------------编程问答-------------------- 用Printer对象
Printer.FontSize = 12
Printer.FontName = "宋体"
--------------------编程问答--------------------
+1 --------------------编程问答-------------------- 以上两位的方法，是要要驱动的吧？
我是直接端口输出。 --------------------编程问答--------------------
不需要....
--------------------编程问答-------------------- Printer.print "内容"
是输出于系统默认打印机。不是输出端口。
我想用端口输出，调用iso-8859-1编码。 --------------------编程问答-------------------- 以下代码能用于并行口打印机.
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
感谢zdingyun
你提供的代码，打印机输出是默认打出“宋体”。
我想打印出其他字体。如iso-8859-1编码。 --------------------编程问答--------------------
直接输出到LTP1的代码只能执行打印机机的硬字库内的汉字字体.不象Printer对象是调用系统的软字库.LZ你的要求需要详细的打印机说明书所指明的指令.
补充：VB , 数据库(包含打印，安装，报表)
