Excel VBA存储页面设置对象_Excel_Vba

Excel VBA存储页面设置对象

excel vba

Excel VBA存储页面设置对象,excel,vba,Excel,Vba,是否可以存储用于设置工作表打印选项的PageSetup对象？我试着用这段代码，但我得到一个错误，说：对象变量或块变量未设置。我就是这样做的，因为我需要先从表单设置设置，然后使用存储在此对象中的打印设置在一些图纸中循环 Dim curPageSetup As PageSetup curPageSetup.paperSize = xlPaperA3 如果您只想更改书中所有纸张的纸张大小，您可以这样做 Sub SetPaperSize() Dim ws As Worksheet

是否可以存储用于设置工作表打印选项的PageSetup对象？我试着用这段代码，但我得到一个错误，说：对象变量或块变量未设置。我就是这样做的，因为我需要先从表单设置设置，然后使用存储在此对象中的打印设置在一些图纸中循环

Dim curPageSetup As PageSetup

curPageSetup.paperSize = xlPaperA3

如果您只想更改书中所有纸张的

纸张大小

，您可以这样做

Sub SetPaperSize()

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

End Sub

无需存储

PageSetup

即可更改其属性

只是一个后续问题。。当我将FitToPagesTall和FitToPagesWide设置为1时，它是否会自动缩放工作表，使其适合所选的纸张大小？@VinceGonzales“

PageSetup。FitToPagesTall

设置工作表打印时将缩放到的页数。仅适用于工作表。“@VinceGonzales，我想是这样！