Excel VBA存储页面设置对象

Question

是否可以存储将用于设置工作表打印选项的PageSetup对象？我尝试使用此代码，但出现错误消息：未设置对象变量或With块变量。之所以这样，是因为我需要首先从表单进行设置，然后使用此对象中存储的打印设置在某些工作表之间循环。

Dim curPageSetup As PageSetup

curPageSetup.paperSize = xlPaperA3

Answer 1

如果您只想更改书中所有工作表的PaperSize，您就可以这样做

Sub SetPaperSize()

    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.PageSetup.PaperSize = xlPaperA3
    Next ws

End Sub

无需存储PageSetup即可更改其属性