共4 条记录, 每页显示 10 条, 页签: [1]

标题：报表模板

1楼

朱女士 发表于：2024/10/23 13:20:00

老师您好！

我有一个”生产计划明细表”，由此制作了一个“生产工艺流程卡”的模板。我的目的是，从生产计划明细表中用工作令号选择符合条件的记录，这些每一条记录中都用清单条码编码生成一个条形码，这样每一条记录的“生产工艺流程卡”上，都需要打印上条形码。最终的目的是，自动成批生成这些个生产工艺流程卡，并成批打印。为了解决这个问题，我建了一个窗口，写了代码。可是我的代码有两个问题：一是预览的模板中条码没有显示，二是成批打印没有实现。请老师给与指点，是我的思路问题还是代码问题。谢谢老师！

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

2楼

朱女士 发表于：2024/10/23 13:30:00

这是预览结果

此主题相关图片如下：卡7.jpg

3楼

朱女士 发表于：2024/10/23 13:48:00

我的这个模板是由两个表组成，上半部分是一个表，是每一条记录的信息不同，下半部分是另外一个表的内容，内容基本上相同的。我用员工资料的格式试了几次不成功问题出在我不会设置连续打印的细节区部分。

4楼

朱女士 发表于：2024/10/23 14:04:00

老师您好！

不好意思，我弄明白了！谢谢！

共4 条记录, 每页显示 10 条, 页签: [1]