Excel自动化 - 打印整个工作簿设置

Question

在Excel对象库中是否有一个界面来设置打印首选项以打印整个工作簿而不是活动工作表？

Answer 1

没有，PAGESETUP仅适用于床单

你可以做的最好的是一个宏复制所需的设置

Sub CopyPageSetup() 
    Dim sh As Worksheet, cl As Range 
    Dim shBase As Worksheet 

    Set shBase = ActiveSheet 
    For Each sh In ActiveWindow.SelectedSheets 
     If sh.Name <> shBase.Name Then 
      sh.PageSetup.Orientation = shBase.PageSetup.Orientation 
      ' Add other PageSetup properties here ' 
      ' unfortunately sh.PageSetup = shBase.PageSetup does not work ' 
     End If 
    Next 

End Sub