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