SELECT PRINTER, possível falha em SAVEAS.

[Mario Mesquita]

Bom dia a todos.

Estou tentando imprimir um documento como .PDF e vi na página do HMG Reference, que tem uma opção chamada SAVEAS <nome do arquivo pdf>, conforme abaixo:

Código: Selecionar todos

SELECT PRINTER <cPrinter> | DEFAULT
    [ TO <lSuccessVar> ]
    [ ORIENTATION <nOrientation> ]
    [ PAPERSIZE <nPaperSize> ]
    [ PAPERLENGTH <nPaperLength> ]
    [ PAPERWIDTH <nPaperWidth> ]
    [ COPIES <nCopies> ]
    [ DEFAULTSOURCE <nDefaultSource> ]
    [ QUALITY <nQuality> ]
    [ COLOR <nColor> ]
    [ DUPLEX <nDuplex> ]
    [ COLLATE <nCollate> ]
    [ PREVIEW ]
    [ NOSAVEBUTTON ]
    [ DIALOGFILENAME <cDialogFileName> ]
    [ SAVEAS <cFullFileName> ]
  

O problema é que, até onde testei, o SAVEAS não funciona. Tentei a sintaxe de algumas formas. Não dá erro, mas não gera o PDF.

Código: Selecionar todos

//SELECT PRINTER DIALOG TO lSuccess PREVIEW  // para testes.

//SELECT PRINTER DEFAULT SAVEAS nCert   // para a impressão em arquivo. (ñ/funciona)

//SELECT PRINTER PDF nCert TO lSuccess  // p/impressão em arquivo. (gera o PDF mas estraga tudo que tem                        //acento.)

IF lSuccess == .T.
   Print_Doc()
ENDIF

Vendo em "SAMPLES\Controls\Print\Print_to_PDF\Demo.prg" na HMG 3.4.3, achei uma outra sintaxe (a terceira, SELECT PRINTER PDF). Essa gera o documento, mas tudo que é acentuado fica com caracteres estranhos e uma imagem BMP que imprimo no texto dá um erro e não é printada. Ainda tentei um "SET LANGUAGE TO PORTUGUESE", mas não adiantou. Sendo que no resto do programa está tudo normal em relação ao idioma, telas e relatórios.

Quem tiver alguma experiência com essa situação e poder me dar uma luz, desde já agradeço.

Saudações e boa semana,
Mario.

[Pablo César]

Mario, procure em ..\SAMPLES\HPDF

Em tem um ótimo exemplo em UNICODE, faz acentos o o faz em qualquer idioma, arabe, chinês, português...
..\SAMPLES\HPDF\Demo2_UniCode\Demo.prg

[Mario Mesquita]

Boa tarde a todos.

Beleza, Pablo, vou ver. Mas estou usando a HMG-Ansi, será que funciona?

Grato,
Mario.