凭证连续打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 凭证连续打印

共有4595人关注过本帖树形打印复制链接主题：凭证连续打印

zhuxinhui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2064 积分：6831 威望：0 精华：0 注册：2017/11/8 17:37:00

凭证连续打印 发帖心情

Post By：2019/9/26 12:12:00 [显示全部帖子]

最近搞着单据连续打印的问题，试很久还是不行

下载信息 [文件大小：下载次数： ]
点击浏览该文件:11.zip

zhuxinhui

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2064 积分：6831 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/9/26 12:13:00 [显示全部帖子]

想把它运用到单据连续打印上来

zhuxinhui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2064 积分：6831 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/9/26 14:16:00 [显示全部帖子]

按了连续打印，只能打印一张，这代码需怎样才能改成能预览全部打印资料

zhuxinhui

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2064 积分：6831 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/9/26 15:16:00 [显示全部帖子]

Dim nms3 As List(of String()) = DataTables("单据").GetValues("单号|企业名称", Tables("单据").filter)

For Each nms() As String In nms3
e.Form.controls("TextBox5").value=nms(0)

Dim str As String =nms(0)

Dim fdr As DataRow = DataTables("单据").find("单号 = '" & str & "'","单号")

Dim s As String =fdr("单号")

      If fdr IsNot Nothing Then
          e.Form.controls("单据").Table.filter ="单号 = '" & s & "'"
      Else
          msgbox("没有了")
      End If

      e.Form.controls("TextBox5").value =fdr("单号")
      e.Form.controls("ComboBox7").value = fdr("企业名称")
      e.Form.controls("DateTimePicker7").value = fdr("日期")
      e.Form.controls("ComboBox8").value = fdr("单据类别")
      e.Form.controls("ComboBox9").value = fdr("对方单位")
      Dim tb As WinForm.TabControl = e.Form.Controls("应收立帐")
      Dim pg As WinForm.TabPage = tb.SelectedPage
      Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg)
      Doc.Preview()
Next

现在想一张张预览后连续打印，但是现在只能打印一张，循环发挥不了作用

zhuxinhui

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2064 积分：6831 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/9/26 15:20:00 [显示全部帖子]

这个已解决了

zhuxinhui

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2064 积分：6831 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/9/26 15:31:00 [显示全部帖子]

上面的代码预览后要确认才能打印，有什么代码可以代替按确认键

zhuxinhui

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2064 积分：6831 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/9/26 15:40:00 [显示全部帖子]

已解决了

zhuxinhui

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2064 积分：6831 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/9/26 15:41:00 [显示全部帖子]

终于可以连续打印

zhuxinhui

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2064 积分：6831 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/10/28 14:34:00 [显示全部帖子]

先使用这句列出所选单号，Dim nms3 As List(of String()) = DataTables("单据").GetValues("单号|企业名称", Tables("单据").filter) ，再按这些单号顺序打印

zhuxinhui

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2064 积分：6831 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/10/28 14:35:00 [显示全部帖子]

Dim nms3 As List(of String()) = DataTables("单据").GetValues("单号|企业名称", Tables("单据").filter)
For Each nms() As String In nms3
      e.Form.controls("TextBox5").value=nms(0)
      Dim str As String =nms(0)
      Dim fdr As DataRow = DataTables("单据").find("单号 = '" & str & "'","单号")
      Dim s As String =fdr("单号")
      If fdr IsNot Nothing Then
          e.Form.controls("单据").Table.filter ="单号 = '" & s & "'"
      Else
          msgbox("没有了")
      End If
      e.Form.controls("TextBox5").value =fdr("单号")
      e.Form.controls("ComboBox7").value = fdr("企业名称")
      e.Form.controls("DateTimePicker7").value = fdr("日期")
      e.Form.controls("ComboBox8").value = fdr("单据类别")
      e.Form.controls("ComboBox9").value = fdr("对方单位")
      Dim tb As WinForm.TabControl = e.Form.Controls("应收立帐")
      Dim pg As WinForm.TabPage = tb.SelectedPage
      Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg)
      'Doc.Preview()   '预览
      'Doc.PrinterName = "HP LaserJet Pro MFP M125-M126 PCLmS" '指定打印机
      doc.AutoRotate = False '禁止自动旋转打印内容
      doc.Print()
Next

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：凭证连续打印