VB 打印 数据停下来就打印到哪里

来源：百度知道 编辑：UC知道 时间：2024/06/17 08:14:35
纸张大小不确定，是根据数据多少来的，我想实现数据有10行就只打印到10行为止，有20行就打到20行为止，打的连续的纸张，打印机LQ-300K
是从SQL数据库里取的数据，打印机打印出来！

系统是WINXP的话只支持打印单字节字符：
Private Sub Command1_Click()
Dim i As Integer
Open "LPT1" For Output As #1
For i = 1 To 5
Print #1, Chr(10); "控制换行，同Chr(13) "
Next
Print #1, Chr(27); "IA"; "ABCDEFGHIJKL"; "正常字体每行80字符"
Print #1, Chr(14); "ABCDEFGHIJKL"; "宽体每行40字符 "
Print #1, Chr(27); "IA"; "恢复正常字体 "
Print #1, Chr(27); "IA"; "ABCDEFGHIJKL"; "正常字体每行80字符"
Print #1, Chr(27); "IB"; "ABCDEFGHIJKL"; "横向扩展每行40字符 "
Print #1, Chr(27); "IC"; "ABCDEFGHIJKL"; "纵向扩展每行80字符 "
Print #1, Chr(27); "E"; "ABCDEFGHIJKL"; "加重黑体 "
Print #1, Chr(27); "F"; "取消加重黑体 "
Print #1, Chr(27); "IA"; "恢复正常字体 &