526互联

delphi TMS FlexCel 设置页面布局（打印、导出调整为合适大小）

发布时间 2023-03-27 19:12:08作者: txgh

TMS FlexCel 设置页面布局（打印、导出调整为合适大小）

属性和方法

TXlsFile.PrintScale

property TXlsFile.PrintScale: Integer

页面布局中的缩放比例，扩大/缩小工作表的百分比。

TXlsFile.PrintToFit

property TXlsFile.PrintToFit: Boolean

如果为true，工作表将被调整为合适大小 PrintNumberOfHorizontalPages 和 PrintNumberOfVerticalPages。

TExcelFile.PrintNumberOfHorizontalPages

property TExcelFile.PrintNumberOfHorizontalPages: Integer

页面布局中的宽度，如果设置了，工作表将打印在最多这个数量的水平页面上。

设置0为自动，可以拥有无限的水平页面。

TExcelFile.PrintNumberOfVerticalPages

property TExcelFile.PrintNumberOfVerticalPages: Integer

页面布局中的高度，如果设置了，工作表将打印在最多这个数量的垂直页面上。

设置0为自动，可以拥有无限的垂直页面。

例子

设置导出缩放比例

procedure TForm1.Button1Click(Sender: TObject);
var
  Xls: TXlsFile;
  Pdf: TFlexCelPdfExport;
begin
  //读取Excel文件
  Xls := TXlsFile.Create('C:\Users\Administrator\Desktop\ceshi.xlsx');
  //关联导出的文档
  Pdf := TFlexCelPdfExport.Create(Xls, True);
  try
    //设置excel页面布局中缩放比例为60%
    Xls.PrintScale := 60;
    //导出当前活动的工作表到文件
    Pdf.Export('C:\Users\Administrator\Desktop\ceshi.pdf');
  finally
    Pdf.Free;
    Xls.Free;
  end;
end;

将所有列调整为一页

procedure TForm1.Button2Click(Sender: TObject);
var
  Xls: TXlsFile;
  Pdf: TFlexCelPdfExport;
begin
  //读取Excel文件
  Xls := TXlsFile.Create('C:\Users\Administrator\Desktop\ceshi.xlsx');
  //关联导出的文档
  Pdf := TFlexCelPdfExport.Create(Xls, True);
  try
    //设置excel页面布局中宽度为1页，高度为自动
    Xls.PrintToFit := True;
    Xls.PrintNumberOfHorizontalPages := 1;
    Xls.PrintNumberOfVerticalPages := 0;
    //导出当前活动的工作表到文件
    Pdf.Export('C:\Users\Administrator\Desktop\ceshi.pdf');
  finally
    Pdf.Free;
    Xls.Free;
  end;
end;