自动化对象不支持Excel自动化“FitToPagesWide”

我试图将Excel工作表导出为PDF，我希望工作表适合页面的宽度。 在做一些研究，似乎我应该使用FitToPagesWide，但是，我无法finddelphi的例子..这是我的代码：

procedure TForm1.ExcelToPDF(const AFilename: string); Const XlTypePDF = 0; xlQualityStandard = 0; IncludeDocProperties = true; IgnorePrintAreas = false; LandscapeMode = 2; var P: OleVariant; begin P:= CreateOleObject('Excel.Application'); try P.WorkBooks.Open(AFilename, 3); p.ActiveSheet.Pagesetup.Orientation := LandscapeMode; orientation p.ActiveSheet.PageSetup.FitToPagesWide := 1; // <-- not supported by automation object p.ActiveWorkbook.exportAsFixedFormat(xlTypePDF, AFilename, xlQualityStandard, IncludeDocProperties, IgnorePrintAreas ); finally p.Quit; end; 

Answer 1

似乎在设置FitToPagesWide工作之前设置Zoom和FitToPagesTall属性。

 p.ActiveSheet.PageSetup.Zoom := false; P.Activesheet.Pagesetup.FitToPagesTall := 1; p.ActiveSheet.PageSetup.FitToPagesWide := 1;