vba - 双面打印

Question

我有一个包含 200 个工作表的工作簿，需要打印出来。

其中一些是 1 页长，其中一些在工作表上是 2 页长。

我想在两面打印，但是当我这样做时，它会将不同的工作表放在两面。

我需要将每张工作表放在不同的纸张上，如果工作表是 1 页，我需要将它放在一张纸上，而下一个 1 页长的工作表放在另一张纸上。

有没有办法使用 VBA 做到这一点？

请帮忙 ！

谢谢，

标签： vbaexcel

Answer 1

试试下面的代码：

Sub print_all()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.PrintOut
    Next ws
End Sub

这将遍历工作簿中的所有工作表，然后单独打印每一页。请注意，它打印到默认打印机，但您可以通过设置方法的ActivePrinter参数来设置哪个打印机PrintOut。