急急急,水晶报调用PrintToPrinter方法无法打印多份

baby520520 2017-09-25 05:13:28
代码如下:

Dim rpt_1 As CrystalDecisions.CrystalReports.Engine.ReportDocument

rpt_1 = New CrAwbTag()

rpt_1.SetParameterValue("运单号", txtSignNO.Text.Substring(0, 4) + " " + txtSignNO.Text.Substring(4))
rpt_1.SetParameterValue("航程", txtSignDep.Text + "---" + txtSignDest.Text)
rpt_1.SetParameterValue("件数", txtSignPC.Text)
rpt_1.SetParameterValue("重量", txtSignWeight.Text)
rpt_1.PrintToPrinter(3, True, 1, 9999)

PrintToPrinter方法第一个参数就是份数,但是我这样调用后打印出来只有一页,只有一条数据,按理应该有3条数据,求大神帮忙看看
...全文
561 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
kutukh 2017-10-31
  • 打赏
  • 举报
回复
跟打印机的属性有关系,设定的份数,不能大于打印机允许的最大复写份数 Public ReadOnly Property MaximumCopies As Integer
baby520520 2017-09-28
  • 打赏
  • 举报
回复
求帮帮忙!!!!!!!!
kutukh 2017-09-28
  • 打赏
  • 举报
回复
再再再顶一下
baby520520 2017-09-27
  • 打赏
  • 举报
回复
有人吗?????????
baby520520 2017-09-26
  • 打赏
  • 举报
回复
求大神帮帮忙
kutukh 2017-09-25
  • 打赏
  • 举报
回复
也碰到了同样的问题,设置出来2份,实际出了1份,来个大神,给指点一下 Try Dim L_path As String = App.Path & "\test.rpt" With crtest .ReportFileName = L_path .ReportDocument.PrintToPrinter(2, True, 0, 0) End With MsgBox("印刷完了!") Catch ex As Exception MsgBox(ex.Message & vbCrLf & ex.HResult) End Try
baby520520 2017-09-25
  • 打赏
  • 举报
回复
求用过水晶报表的帮帮忙

17,740

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术 .NET Framework
社区管理员
  • .NET Framework社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧