请问VB中如何控制打印走纸呢??高分相送
打印票据.现在要连续的打印.把A4的纸分成了3份打印.打印完了一份之后就停住.等待下一次打印命令.由于小弟对打印控制不熟悉.请各位高手讲解一下!!下面是小弟写的.请各位看一下应该如何控制
Private Sub cmdmimeograph_Click()
Dim rst As New ADODB.Recordset
Dim sql3 As String
sql3 = "select * from information "
rst.Open sql3, conn, adOpenKeyset, adLockPessimistic
rst.MoveFirst
Do While (rst.EOF = False)
If rst(0) = id And rst(1) = id1 Then
frmPrintFetch.Label10 = id1
frmPrintFetch.Label11 = rst(4)
frmPrintFetch.Label12 = rst(5)
frmPrintFetch.Label13 = rst(7)
frmPrintFetch.Label7 = Date
frmPrintFetch.Label9 = rst(9)
frmPrintFetch.PrintForm
Unload frmPrintFetch
Exit Do
Else
rst.MoveNext
End If
Loop
If (rst.EOF = True) Then
MsgBox "出错 "
Exit Sub
End If
End Sub
[解决办法]
WIN98下能打印中文，WINXP下能打印英文字符及数字，打印机为EPSON针打：
Private Sub Command1_Click()
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 " '恢复正常字体
Print #1, Chr(27); "4 "; "ABCDEFGHIJKL " '斜体
Print #1, Chr(27); "5 " '取消斜体
Print #1, Chr(27); "0 "; "ABCDEFGHIJKL " '打印每吋6行改8行
Print #1, Chr(27); "1 "; "ABCDEFGHIJKL " '重置行间隔为7/72
Print #1, Chr(27); "2 "; "ABCDEFGHIJKL " '重置行间隔为1/6
Print #1, Chr(27); "IA "; "ABCDEFGHIJKL " '正常字体每行80字符 "
'Print #1, Chr(12) '控制换页
Close #1
End Sub
