Como Salvar em PDF no Office2007

Pessoal,
Sei que apartir do Office 2007 é possivel salvar um arquivo .xls como .pdf.

Minha duvida é como passar o codigo da macro gerada no excel para o progress?

Macro:
------------------------------------------------------------------------------------------------------
ChDir "C:\Users\usuar\Desktop" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,
Filename:= _"C:\Users\usuar\Desktop\Pasta1.pdf",
Quality:=xlQualityStandard,
_IncludeDocProperties:=True,
IgnorePrintAreas:=False,

OpenAfterPublish:= _True
------------------------------------------------------------------------------------------------------

Testa esse código !!

Código:

DEF VAR chExcel2             AS COMPONENT-HANDLE                NO-UNDO.
DEF VAR vi-linha             AS INT INIT 1                      NO-UNDO.

ASSIGN vi-linha = 1.
    
    CREATE "Excel.Application" chExcel2.
    chExcel2:VISIBLE = FALSE.
    chExcel2:workbooks:ADD.
    
    chExcel2:Range("A" + string(vi-linha) + ":I" + string(vi-linha)):font:bold = TRUE.                       /* Fonte Negrito */
    
    chExcel2:range("D10"):VALUE = string("Teste de Excel 123").
    
    chExcel2:ActiveSheet:ExportAsFixedFormat(0,"C:\temp\testeExcel2.PDF",0,true,,,,,).
    
    ASSIGN vi-linha = vi-linha + 1.

    chExcel2:range("A1"):SELECT.
    chExcel2:VISIBLE = TRUE.
    RELEASE OBJECT chExcel2.