如何使打印程序按打印机驱动设置切纸

登录

如何使打印程序按打印机驱动设置切纸：
比如：打印机驱动设置每打印10张切纸一次

For i = 1 To 100

                        Currentbarcode = '12345678001'

                        Try
                              Dim rpt1 As New AR33_13
                              rpt1.Restart()
                              rpt1.Run()
                              rpt1.Document.Print(False)
                              System.Threading.Thread.Sleep(currentprintsleep)
                        Catch ex As Exception
                              MessageBox.Show(ex.Message)
                        End Try

                        Currentbarcode = (CLng(Currentbarcode + 1)).ToString()
  Next

nicholas · nicholas

如何实现将打印任务送给同一台电脑上的两台打印机
请帮忙提供相应代码
谢谢！

iceman · iceman

回复 2楼nicholas的帖子

将打印任务发送到两台打印机需要调用先指定不同打印机名称，两次 Print 方法实现：

Dim sr1 As New SectionReport1
sr1.Restart()
sr1.Run()
sr1.Document.Printer.PrinterName = "打印机1名称"
sr1.Document.Printer.Print()
sr1.Restart()
sr1.Run()
sr1.Document.Printer.PrinterName = "打印机2名称"
sr1.Document.Printer.Print()

复制代码

另外，请问您使用的是 AR7 吗？PageReport 还是 SectionReport？

nicholas · nicholas

SectionReport

nicholas · nicholas

AR7 ,SectionReport:
打印代码：
For i = 1 To 100

                        Currentbarcode = '12345678001'

                        Try
                              Dim rpt1 As New AR33_13
                              rpt1.Restart()
                              rpt1.Run()
                              rpt1.Document.Print(False)
                              System.Threading.Thread.Sleep(currentprintsleep)
                        Catch ex As Exception
                              MessageBox.Show(ex.Message)
                        End Try

                        Currentbarcode = (CLng(Currentbarcode + 1)).ToString()
  Next

iceman · iceman

回复 5楼nicholas的帖子

测试需要通过 Viewer 调用打印方法，我理解你的问题是分别调用同一台电脑上的两个打印机打印同一文档。
那么只需要分别制定打印机名称，调用打印方法即可，我使用两个虚拟打印机可以成功打印：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim sr1 As New SectionReport1
sr1.Run()
Me.Viewer1.Document = sr1.Document
End Sub
Private Sub PrintToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrintToolStripMenuItem.Click
Me.Viewer1.Document.Printer.PrinterName = "Send To OneNote 2013"
Me.Viewer1.Print(False)
Me.Viewer1.Document.Printer.PrinterName = "Microsoft XPS Document Writer"
Me.Viewer1.Print(False)
End Sub

复制代码

或者我没有理解你的意思，可以进一步解释下。

iceman · iceman

如何使打印程序按打印机驱动设置切纸：
比如：打印机驱动设置每打印10张切纸一次

For i = 1 To 100

                        Currentbarcode = '12345678001'
         ......
nicholas 发表于 2014-7-16 9:59:00

请查看附件Demo 看能否满足切纸需求：

nicholas · nicholas

你好，非常感谢你的帮助！
但，printING- document 数据发送速度过慢，
大约一秒钟发送一个打印数据。
可否加快printING- document 数据发送速度？
谢谢！

iceman · iceman

回复 8楼nicholas的帖子

nicholas 你好，
切纸的问题解决了吗？
这个发送过程我们目前还无法干预。实际项目中真的会每次打印 2000 页纸张吗？

nicholas · nicholas

打印2000页属于正常工作，只是打印速度太慢了。
我之前可以的打印调用方式，打印速度是很快的：
   Dim rpt1 As New AR33_13
      rpt1.Restart()
      rpt1.Run()
      rpt1.Document.Print(False)

		自动登录	找回密码
密码			立即注册

[已处理] 如何使打印程序按打印机驱动设置切纸

本帖子中包含更多资源

13 个回复

本帖子中包含更多资源

本帖子中包含更多资源

活字格认证

微信认证勋章

元老葡萄