以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于打印张数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159665)

--  作者:实话实说
--  发布时间:2021/1/4 6:16:00
--  关于打印张数
我想一键打印选定的记录和每个记录打印的张数

图片点击可在新窗口打开查看此主题相关图片如下:snap1.jpg
图片点击可在新窗口打开查看

以下是【打印合格证】按钮代码,只能打印选定的记录,没有包括张数。
Dim cbx As WinForm.ComboBox = e.Form.Controls("合格证模板")
Tables("打印").Filter = "[合格证模板] = \'" & cbx.text & "\' And [打印] = False "
If Tables("打印").Rows.Count = 0 Then \'如果是一个空表
    MessageBox.Show("没有要打印的数据!", "提示")
    Return \'那么返回
Else
    \'选定筛选的表
    With Tables("打印")
        .Select(0,0, .Rows.Count -1, .Cols.Count -1)
    End With
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & cbx.text & ".xls")
Book.Build()
Book.Save(ProjectPath & "Reports\\" & cbx.text & ".xls")
Dim Proc As New Process
Proc.File = ProjectPath & "Reports\\" & cbx.text & ".xls"
Proc.Start()
For Each r As Row In Tables("打印").Rows
    r("打印") = True
Next

Tables("打印").Filter = "[打印] = False"


--  作者:有点蓝
--  发布时间:2021/1/4 9:00:00
--  
使用vba打印
   Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\\" & cbx.text & ".xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut(Copies:="打印份数,比如5"
App.Quit


--  作者:实话实说
--  发布时间:2021/1/4 10:03:00
--  
1、vba代码写在哪?2、打印张数是手动设置吗?3、同一个模板(比如3C)包括多个产品(有时多达10多个),每个产品要打印的张数不同(有的产品可能要打印几百张)能一键实现吗?
--  作者:有点蓝
--  发布时间:2021/1/4 10:32:00
--  
打印代码替换一楼的以下代码。

Dim Proc As New Process
Proc.File = ProjectPath & "Reports\\" & cbx.text & ".xls"
Proc.Start()

打印的张数可以自己使用表格设置,然后查表使用,比如

Ws.PrintOut(Copies:=r("打印张数"))

--  作者:实话实说
--  发布时间:2021/1/5 18:47:00
--  
打印表的表事件DataColChanged 中我设置了打印3张,可直打印一张,不知代码问题再哪?
If e.DataCol.Name = "打印" Then
    If e.DataRow("打印") = True Then
Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & e.DataRow("合格证模板") & ".xls")
Book.Build()
Book.Save(ProjectPath & "Reports\\" & e.DataRow("合格证模板") & ".xls")
\'Dim Proc As New Process \'定义过程
\'Proc.File = ProjectPath & "Reports\\" & e.DataRow("合格证模板") & ".xls"  \'打开工作簿
\'Proc.Verb = "Print" \'直接打印
\'Proc.Start() \'执行
Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\\" & e.DataRow("合格证模板") & ".xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut(Copies:= e.DataRow("张数"))
App.Quit
DataTables("打印").Save() 
    End If
End If



--  作者:有点蓝
--  发布时间:2021/1/5 20:29:00
--  
我测试没有问题

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\问题\\信息.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut(Copies:= 3)
App.Quit

msgbox(e.DataRow("张数"))