無法從VB.net

Question

我試圖改變紙張尺寸和Excel工作表方向 代碼運行沒有任何錯誤更改Excel的PageSetup類的紙張大小和方向特性，但沒有在Excel

改變

這裏代碼：

Private Sub doCompare() 
    Dim xlApp As Excel.Application = Nothing 
    Dim DEs As Excel.Worksheet = Nothing 
    Dim Rws As Excel.Worksheet = Nothing 
    Dim ewb As Excel.Workbook = Nothing 

    XLapp = New Excel.Application 
    ewb = XLapp.Workbooks.Open("xxxxxxx0.xls") 
    DEs = ewb.Worksheets("Data Entry") 
    Rws = ewb.Worksheets("Comparing Results") 

    'Do something with these worksheets 

    'Now trying to change default settings. Code copied from Excel macro 
    xlApp.PrintCommunication = False 
    Rws.PageSetup.PrintArea = "" 
    DEs.PageSetup.PrintArea = "" 
    With Rws.PageSetup 
    .Orientation = Excel.XlPageOrientation.xlLandscape 
    .PaperSize = Excel.XlPaperSize.xlPaperA4 
    .FitToPagesWide = 1  'Fit All Columns to page 
    End With 
    xlApp.PrintCommunication = True 

End Sub 

打印機驅動程序安裝

Answer 1

@Maxim想你的代碼，它工作正常。請記住，根據您的代碼，您只能更改工作表「比較結果」的頁面設置。 「數據輸入」保持不變。

- 如果回答正確，歡迎上傳。