Page 1 of 1
Imprimir PDF con caracteres especiales
Posted: Sat May 16, 2020 8:22 am
by jorge.posadas
Grupo
Estoy creando un reporte en PDF, y para que me imprima caracteres como áéíóú ÁÉÍÓÚ Ññ uso este comando:
SET HPDFDOC ENCODING TO "WinAnsiEncoding" esto lo vi en un ejemplo que me dio Mustafa, pero no me esta funcionando.
¿sabes que debo de hacer para que me impirma ese tipo de caracteres para un reporte en PDF?
De antemano gracias por la ayuda
Re: Imprimir PDF con caracteres especiales
Posted: Sat May 16, 2020 9:54 am
by mustafa
Mira la solución de Pepe Ruano
https://www.hmgforum.com/viewtopic.php? ... afa#p61943
a mi siempre no me funciona
Saludos
Mustafa
Re: Imprimir PDF con caracteres especiales
Posted: Sat May 16, 2020 12:13 pm
by dragancesu
@ 100,100 HPDFPRINT UNICODE "text like ŠĐŽĆČ "
Re: Imprimir PDF con caracteres especiales
Posted: Sat May 16, 2020 11:54 pm
by tave2009
Hola!
Proba este código al principio de la rutina:
private lSuccess := .f.
*
// Crear Pdf, Hoja: A4, orientación de la hoja: apaisado
SELECT HPDFDOC ( 'caratula.pdf' ) TO lSuccess PAPERSIZE HPDF_PAPER_A4 ORIENTATION HPDF_ORIENT_LANDSCAPE
*
SET HPDFDOC COMPRESS ALL
SET HPDFDOC PAGEMODE TO OUTLINE
SET HPDFDOC ENCODING TO "WinAnsiEncoding"
SET HPDFINFO AUTHOR TO " Walter"
SET HPDFINFO CREATOR TO SYSTEM
SET HPDFINFO TITLE TO 'Carátula'
SET HPDFINFO SUBJECT TO 'Utilitario'
SET HPDFINFO KEYWORDS TO 'HMG, HPDF, LibHaru, Harbour, MiniGUI'
SET HPDFINFO DATECREATED TO date() TIME time()
*
if lSuccess
.......
siguiente código...
Suerte!
Re: Imprimir PDF con caracteres especiales
Posted: Sun May 17, 2020 11:50 am
by movilceles
Hola,
si el problema lo tienes con tablas dbf
debe pasar de oem a ansi
ejplo:
vPO:=HB_OEMTOANSI(ALLTRIM(POBLACION))
@ 6, 29 HPDFPRINT vPO SIZE 8
Re: Imprimir PDF con caracteres especiales
Posted: Sun May 17, 2020 1:08 pm
by mustafa
Hola amigos
Hay que salvar el Fichero.prg tipo codificación ==>> ANSI No UTF-8
y hay que colocar:
SET HPDFDOC ENCODING TO "WinAnsiEncoding"
NO==>>> * SET HPDFDOC ENCODING TO "CP1250" // <<=== mal las Ñ salen N con acento ´N
Dejo un Sample
Code: Select all
#include "hmg.ch"
*------------------------------------------------------------------------------*
Procedure Main
*------------------------------------------------------------------------------*
Local cNombre := "mostra.pdf"
REQUEST HB_CODEPAGE_ESWIN
HB_SETCODEPAGE("ESWIN")
REQUEST HB_LANG_ES
HB_LANGSELECT("ES")
*----------------------------------*
SET CENTURY ON
SET DATE FRENCH
SET ESCAPE ON
SET NAVIGATION EXTENDED
SET LANGUAGE TO SPANISH
SET CODEPAGE TO SPANISH
SELECT HPDFDOC cNombre TO lSuccess PAPERSIZE HPDF_PAPER_A4
SET HPDFDOC ENCODING TO "WinAnsiEncoding"
*SET HPDFDOC ENCODING TO "CP1250" // <<=== mal las Ñ salen N con acento ´N
START HPDFDOC
START HPDFPAGE
@ 030,015 HPDFPRINT ALLTRIM("JOsé Manú el NiÑo ") FONT "Times-Roman" SIZE 17
@ 050,015 HPDFPRINT "Para que salga áéíóú ÑÑÑÑÑÑÑ ñññññ " FONT "Arial" SIZE 22 BOLD
@ 070,015 HPDFPRINT "Salvar en ANSI el prg" FONT "Arial" SIZE 19 BOLD
@ 090,015 HPDFPRINT "Poner ==>> SET HPDFDOC ENCODING TO 'WinAnsiEncoding' " FONT "Arial" SIZE 17
@ 110,015 HPDFPRINT "text like ŠÐŽCCÑÑÑÑññññ "FONT "Times-Roman" SIZE 17
END HPDFPAGE
END HPDFDOC
Execute File 'mostra.pdf'
Return Nil
Mustafa