Conversão de Código fonte do VB para Progress

Olá Pessoal,

Devido não estar conseguindo gerar pdf a partir do progress, não sei se devido estar usando a versão 8.3a do Progress, estou tentado fazer algo tipo abrir um arquivo do word , preencher os dados usando o replace ( esquema disponibilizado por TrombiniSP em http://www.4each.com.br/forum/viewtopic.php?f=2&t=348 ) e imprimir em uma impressora pdf. Bom , abrir o arquivo e preencher os campos já deu boa, porém falta imprimir na impressora pdf. Então fiz uma macro no word e peguei o fonte para tentar converter para Progress.

Eis o Código gerado pelo VB:

Código:

Sub Macro5()
'
' Macro5 Macro
' Macro gravada 12/3/2009 por ESTACAO103
'
    ActivePrinter = "MagicPDF"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

Alguem poderia me ajudar a jogar isso para o Progress ?
Ahh Quanto ao problema em gerar o pdf.. postei minha dúvida no tópico Include PDF (http://www.4each.com.br/forum/viewtopic.php?t=349&f=5 ) se alguem puder ajudar !!!

Eriuton Charles

Por favor, disponibilize o MagicPrinter que eu posso dar uma olhada,ok?

Abs.

Trombini

Olá Trombini,

Desde já agradeço pela atenção.

Essa MagicPDF é uma impressora Virtual disponível neste link http://www.baixaki.com.br/download/magicpdf-pro.htm
bem simples .. vc manda qq documento e ela imprime em pdf.

Um Abraço,
Eriuton Charles

Vou dar uma olhada ok?

Estou no aguardo de alguma novidade !!

Desde já agradeço,

Eriuton charles

Fiz uma adaptação no mesmo código que vc usou pra realizar a busca e troca em documentos .DOC, veja como ficou:

A Dialog do MagicPDF irá abrir normalmente e vc da o nome ao arquivo a o salva.

Código:

DEFINE VARIABLE AppWord AS COM-HANDLE NO-UNDO.

CREATE "Word.Application" AppWord.
AppWord:visible = true.
AppWord:Documents:Open("c:\coaching\modelos\wordparametros.doc",False,False,False,"","",False).

AppWord:Selection:Find:Text = "$nome".
AppWord:Selection:Find:Replacement:Text = "Cleber".
AppWord:Selection:Find:Forward = True.
AppWord:Selection:Collapse.
AppWord:Selection:Find:Execute(,,,,,,,,,,1,,,,).

Appword:ActivePrinter = "MagicPDF".
Appword:PrintOut() NO-ERROR.
Appword:ActiveDocument:Close.
Appword:Quit().
release object appWord.