Impressão em Progress

Bom dia, pessoal!

Gostaria de saber qual o comando ou componente vocês utilizam para fazer a impressão em Progress, pois estou utilizando o comando output to printer, porém o relatório sai todo desconfigurado.

Agradeço pela ajuda.

Ola, amigo.

Existem algumas opções. Citarei algumas abaixo:

1) Output to LPT1 ou PRINTER
R: Sairá em formato texto. Voce pode complementar utilizando o comando CODEPAGE. Esta é a maneira mais simples e utilizada, porém a estetica fica a desejar.

2) Word ou Excel
R: Voce pode utilizar varios comandos encontrados aqui no forum para exportar/criar um relatorio no Word ou Excel e o usuario poderia a partir dai, imprimir ou salvar. Vale a pena e o resultado final é muito bom.

3) Report Builder
R: Não conheco essa ferramenta, ainda nao tive oportunidade de usa-la, porem parece ser bem facil de gerar relatorios.

4) XPrint Library
R: É uma biblioteca a qual vc passa parametros e ela gera um relatorio parecido com Crystal Reports. Bem formatado e com direito a gráficos, imagens e tudo mais. Na versão Demo, só é possivel imprimir uma pagina.

Abraço.

Pode usar também o pdfinclude para gerar pdf.

http://www.oehive.org/pdfinclude

Obrigado pessoal, mas alguém teria algum exemplo?

Obrigado.

Exemplo Printer

Código:

OUTPUT TO PRINTER.
FOR EACH pessoa
NO-LOCK:
   DISPLAY pessoa.nome
           pessoa.idade.   
END.
OUTPUT CLOSE.

Exemplo PDF Include

Código:

{ pdf_inc.i "NOT SUPER"}
RUN pdf_new IN h_PDFinc ("Spdf","Teste.pdf").
RUN pdf_new_page IN h_PDFinc ("Spdf").
RUN pdf_text IN h_PDFinc ("Spdf", "Hello....... teste teste!!!").
RUN pdf_close IN h_PDFinc ("Spdf").

Exemplo Excel

Código:

DEFINE VARIABLE chExcelApp  AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorkBook  AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorkSheet AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE cFileName   AS CHARACTER.

ASSIGN cFileName = "teste.xls".

CREATE "Excel.Application" chExcelApp.

chWorkBook = chExcelApp:Workbooks:Add().

/* Se documento já existe
chWorkBook = chExcelApp:Workbooks:Open(cFileName).
*/

chWorkSheet = chExcelApp:Sheets:Item(1).

ASSIGN
chWorkSheet:Range("A1"):Value = "Relatorio"
chWorkSheet:Range("B2"):Value = "Nome"
chWorkSheet:Range("C2"):Value = "Email"

chWorkSheet:Range("A1:D1"):MergeCells = TRUE.

RELEASE OBJECT chWorkSheet.

chWorkBook:SaveAs(cFileName,-4143,,,,,).

chWorkBook:Save().

chWorkBook:Close().
chExcelApp:Quit().

RELEASE OBJECT chWorkBook.
RELEASE OBJECT chExcelApp.

Exemplo Word

Código:

DEFINE VARIABLE chWord AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chDocument AS COM-HANDLE NO-UNDO.

CREATE "Word.Application":U chWord.

IF chWord = ? THEN DO:
   MESSAGE "Microsoft Word is not installed in this pc." VIEW-AS ALERT-BOX.
   RETURN.
END.

chDocument = chWord:Documents:ADD().

chWord:Selection:FONT:bold = NO.
chWord:Selection:FONT:size = 10.
chWord:Selection:Font:Name = "Verdana".
chWord:Selection:TypeText("sl4v3r.... ").

chWord:VISIBLE = YES.

RELEASE OBJECT chWord.

Alguem pode me ajudar?
Como faço para mandar o PDF depois de criado direto para a Impressora?
Obrigado.