| | | | | | | | | | <End> |
<出库明细表,1> | | | | | | | | | [日期] | <是否打印=true> |
| | | | | | | | | [库位] | |
| | [日期] | | | [入库车号] | |
| | | [收货单位] | [联系人] | |
| | | [收货地址] | |
| | | | | | | | |
| | [品名] | [批号] | [出库重量] | [件数] | [发货单号] | [发货备注] | |
| | |
| | |
| | |
| | | 尊敬的客户：如有外包装破损或件数
不符等情况，请拒收或在本回执单上注明，如未注
明则视同签收时货物完好，件数无异议。 | |
| | | |
| | | |
| | | |
| | | |
| | | |
<出库明细表> | | | |
<End> | | | |
|
老师好：
请教老师关于 模板打印 的问题：
在窗口的 副本表 AfterCheckRow设置了
If e.Row.Checked=True Then
e.Row("是否打印")=True
Else
e.Row("是否打印")=False
End If
模板一共有3个，3个格式都一样。但是大小不一样。模板的设置全部如上面表格
打印按钮设置：
For Each R2 As Row In Tables("出库录入窗口_出库明细表").GetCheckedRows
Dim s As String ="上海分公司"
Dim s1 As String ="南京分公司"
Dim s2 As String ="广东分公司"
If r2("库位")<>Nothing And R2("产品ID")<>Nothing And R2.Checked =True Then
If R2("发货货权")=s1 Then
Dim Book As New XLS.Book(ProjectPath & "Attachments\南京开单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Verb= "Print"
Proc.Start()
R2("已打印")=True
Else
If R2("发货货权")=s Then
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\上海开单.xls")
Dim f2 As String = ProjectPath & "Reports\出库单.xls"
Book1.Build() '生成细节区
Book1.Save(f2) '保存工作簿
Dim Proc1 As New Process '打开工作簿
Proc1.File = f2
Proc1.Verb= "Print"
Proc1.Start()
R2("已打印")=True
Else
If R2("发货货权")=s2 Then
Dim Book2 As New XLS.Book(ProjectPath & "Attachments\广州开单.xls")
Dim f3 As String = ProjectPath & "Reports\出库单.xls"
Book2.Build() '生成细节区
Book2.Save(f3) '保存工作簿
Dim Proc2 As New Process '打开工作簿
Proc2.File = f3
Proc2.Verb= "Print"
Proc2.Start()
R2("已打印")=True
End If
End If
End If
Else
MessageBox.Show("请选择库位后再打印!","提示:")
End If
R2.Checked =False
Next
按照面的执行结果每次都是打印出来很多没有勾选复选框的内容。。请教老师 问题出在哪里了，谢谢！！
加好友 
发短信
Post By：2016/4/13 21:49:00 [只看该作者]
