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

标题：打印选中的行

1楼

lianghanyu 发表于：2025/2/27 8:33:00

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

在以上代码，现在的是每行生成一个PDF文件。如果我想把我选中的多行，全部打印成一个文件，要怎么样修改代吗？

2楼

有点蓝 发表于：2025/2/27 8:46:00

把模板里的<ALL>标记去掉，然后改改打印代码

With Tables("图档修改记录")

Dim n As Integer = .Rows(0)("_Identify")

Dim name As String = .Rows(0)("项目编号") & "_" & .Rows(0)("模具编号") & "_" & .Rows(0)("D3图纸") & "_" & n

Dim Book As New XLS.Book(mb)

Dim fl As String = Path & "\" & name & "设计修改通知书.pdf"

Book.Build()

Book.SaveToPdf(fl)

End With

3楼

lianghanyu 发表于：2025/2/27 9:03:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:设计修改通知书模版.xls

不对啊，这样打印的都是Row(0)行啊。不是我选中的多行。

我把我的模版也上传了。

4楼

有点蓝 发表于：2025/2/27 9:10:00

不可能打印的都是Row(0)行，只是文件名为Row(0)行的数据，文档内容肯定是选择的多行，除非只选了一行。

如果不同行的文件名称要不一样，就不适合全部打印到一个文件里，只能按原来的方法打印为多个文件

5楼

lianghanyu 发表于：2025/2/27 9:23:00

把以下的注释掉就可以了：

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

但是，我需要图片啊。应该要怎么样修改呢？

6楼

有点蓝 发表于：2025/2/27 9:29:00

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