请教各位大神：如何一次性打印多张表到一个PDF文件，谢谢啦！

wtqzhjb

请教各位老师、各位大神


                    For Each H In Sheets("表1).[BJBH]‘班级名称
                        Sheets("表2").[A11] = H
                        For Each C In Sheets("表3").[CC]'分类名称
                            Sheets("表2").[A13] = C
                            Sheets("表2").PrintOut Copies:=1, Collate:=True
                        Next
                    Next

这是逐个填入班级编号，同时填入分类，然后打印每个班级、每个类别的分析表。

请教各位朋友：能不能改为，最终一次性打印成一个PDF文件，另存在当前路径下，并以 表1.[A1] 命名，而不是一张一张printout呢？（已经设置好PDF打印机）
谢谢

taller

wtqzhjb

taller 发表于 2024-11-18 02:09

谢谢版主，您这个办法很好哦

wtqzhjb

taller 发表于 2024-11-18 02:09

谢谢版主老师，您的设计很好用。进一步请教一下：如果有好几张这样的表（如同sheet2)，都需要用同样的方式填入以上 名称，希望这些sheet 能够与 sheet2一起打印到PDF，能不能够实现呢，如何做呢，谢谢您

taller

wtqzhjb 发表于 2024-11-20 09:12
谢谢版主老师，您的设计很好用。进一步请教一下：如果有好几张这样的表（如同sheet2)，都需要用同样的方 ...

同样的原理，只要在数组aSht中记录下来这些表的名字，就可以一次性打印

wtqzhjb

taller 发表于 2024-11-20 09:50
同样的原理，只要在数组aSht中记录下来这些表的名字，就可以一次性打印

好的，谢谢老师