求助实现，批量填充表格固定位置批量打印表格

swts667

大神梦求助呀，我想实现从 第一个工作簿，提取信息，然后在另一个工作簿 下完成相关位置单元格的填充，然后批量打印。效果如图word邮件合并那样。最好是可以加一个打印控件，求助大神们赐教，打印效果是1的工作簿有填充的加入打印序列，如果没有填充，就不打印了

蓝桥玄霜

建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

swts667

蓝桥玄霜 发表于 2022-12-22 09:42
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

已经上传，恳请赐教

3190496160

Sub pldy()
With Sheets("信息生成填写处")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
End With
For i = 3 To 3 'r
    [j1] = i - 2
    ActiveSheet.PrintOut
Next i
MsgBox "打印完毕"
End Sub

3190496160

公务出行报销程序.rar (31.76 KB, 下载次数: 11)

2022-12-22 13:45 上传

点击文件名下载附件

swts667

3190496160 发表于 2022-12-22 13:45

感谢感谢，真是热心肠。

swts667

3190496160 发表于 2022-12-22 13:44
Sub pldy()
With Sheets("信息生成填写处")
    r = .Cells(Rows.Count, 1).End(xlUp).Row

https://wwpe.lanzoub.com/iDX9P0jhpzre
这是我阳了自己学了一下编写的vba宏，您受累看看代码可以优化一下不。

swts667

这是我自己阳了，在家编写的程序，您看看代码可以怎么优化一下。