老师您好！ 我有一个”生产计划明细表”，由此制作了一个“生产工艺流程卡”的模板。我的目的是，从生产计划明细表中用工作令号选择符合条件的记录，这些每一条记录中都用清单条码编码生成一个条形码，这样每一条记录的“生产工艺流程卡”上，都需要打印上条形码。最终的目的是，自动成批生成这些个生产工艺流程卡，并成批打印。为了解决这个问题，我建了一个窗口，写了代码。可是我的代码有两个问题：一是预览的模板中条码没有显示，二是成批打印没有实现。请老师给与指点，是我的思路问题还是代码问题。谢谢老师！
Dim Result As DialogResult
Dim b As WinForm.TextBox= e.Form.Controls("TextBox1")
'b.BackColor = Color.Red
Dim gzh As String = b.Value
Dim Filter As String
Filter = "工作令号='" & gzh & "'"
Tables("生产计划明细表").Filter = Filter
Dim mr As DataRow
'mr = DataTables("生产计划明细表").Find("工作令号 = '" & gzh & "'")
'Dim dat As String = cldate(mr("录入日期"))
Dim qdtm As String
Dim drs As List(Of DataRow)
drs = DataTables("生产计划明细表").S elect("[工作令号] = '" & gzh & "'")
Dim fl As String
For Each dr As DataRow In drs
If dr("打印否") = True Then
qdtm = dr("清单条码编码")
Dim Book As New XLS.Book(ProjectPath & "Attachments\生产工艺加工流程卡模板.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
fl= ProjectPath & "Reports\" & dr("清单条码编码") & ".xls"
Book.Build() '生成细节区
Book.Save(fl)
End If
Result = MessageBox.Show("报表已生成，要预览/打印", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Proc As New Process
Proc.File = fl
Proc.Start()
End if
If Result = DialogResult.No Then
Dim Proc As New Process
Proc.File = fl
Proc.Verb = "Print" '指定动作
Proc.Start()
Else
Exit For
End If
加好友 
发短信
Post By：2024/10/23 13:20:00 [显示全部帖子]
此主题相关图片如下：卡7.jpg