UC知道vb 关于打印的问题，请高手帮忙解决
来源：百度知道 编辑：UC知道 时间：2024/06/08 16:50:14
用Commondialog实现打印的，想用vb实现在第一张纸上打印几个字，然后在第二张纸上再打印几个字。请问高手，怎么在程序中设置第二张纸啊
用 Printer.NewPage 方法开始在新一页上打印.
用 Printer.NewPage 语句，NewPage告诉打印机，程序对当前输出页的发送已经结束，Printer对象应开始新的一页。
Function Page()
Dim Fno As Long
Fno = FreeFile
Open "lpt1:" For Output As #Fno '或LPT1:换成PRN
Print #Fno, "this is a test"
Print #Fno, Chr(24) & Chr(12) '换页
For Nx = 1 To 24 '自动切纸
Print #Fno, Chr(27) & Chr(105) '进纸1列
Next
Print #Fno, Chr$(27) + Chr$(106) + Chr$(85) '退纸1列(85)可改
Close
End Function