SELECT PRINTER, possível falha em SAVEAS.
Enviado: 19 Dez 2016 08:35
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:
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.
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.
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> ]
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
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.