ExcelExportarComoPDF

Estrutura

TCommonLibrary.ExcelExportAsPDF(AMachine:TatVirtualMachine); // (sExcelFileName, sPDFFileName, bIncludeDocProperties, bIgnorePrintArea, iPageFrom, iPageTo, bOpenAfterPublish)

Tipo

Procedimento

Descrição

O procedimento TCommonLibrary.ExcelExportAsPDF funciona como um canal de passagem para o método ExportAsFixedFormat na automação OLE do Excel (controladores do Windows). Isto significa que, para que o procedimento funcione corretamente, é necessário que o Excel esteja instalado no servidor.

Se o script conseguir abrir o documento utilizando OLE (como Método Workbooks.Open (Excel) | Microsoft Learn), então passa todas as variáveis para a função ExportAsFixedFormat, conforme documentado aqui: Método Worksheet.ExportAsFixedFormat (Excel) | Microsoft Learn

O único parâmetro que está definido de forma fixa é o segundo parâmetro Quality, que está definido como Standard (0).

Chamada de script nos bastidores:

     //Abrir pasta de trabalho do Excel
      try
        ExcelWorkbook := ExcelApplication.Workbooks.Open(sExcelFileName);
        //referência
        //https://docs.microsoft.com/en-us/office/vba/api/excel.workbooks.open
      except
        ExcelWorkbook := Null;
        bResult := False;
      end;

      If VarIsNull(ExcelWorkbook) = False then
      begin
        Try
          ExcelWorkbook.ExportAsFixedFormat(0, sPDFFileName, 0, bIncludeDocProperties, bIgnorePrintArea, iPageFrom, iPageTo, bOpenAfterPublish, EmptyParam);
          // referência
          //https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet.exportasfixedformat
        Exceção
          bResult := False;
        Fim;
      fim;