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
Imprimir PDF con caracteres especiales
Moderator: Rathinagiri
-
- Posts: 174
- Joined: Mon May 19, 2014 7:43 pm
- DBs Used: DBF, SQLite, MS-SQL, ACCESS, MariaDB (en proceso)
- Location: Morelia, Mich. México
- Contact:
Imprimir PDF con caracteres especiales
Cordialmente
POSADAS SOFTWARE
Jorge Posadas Ch.
Programador independiente
Morelia, Mich.
M é x i c o .
Movil +52 44 3734 1858
SKYPE: jorge.posadasch
Email: posoft@gmx.com
POSADAS SOFTWARE
Jorge Posadas Ch.
Programador independiente
Morelia, Mich.
M é x i c o .
Movil +52 44 3734 1858
SKYPE: jorge.posadasch
Email: posoft@gmx.com
- mustafa
- Posts: 1160
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: Imprimir PDF con caracteres especiales
Mira la solución de Pepe Ruano
https://www.hmgforum.com/viewtopic.php? ... afa#p61943
a mi siempre no me funciona
Saludos
Mustafa
https://www.hmgforum.com/viewtopic.php? ... afa#p61943
a mi siempre no me funciona
Saludos
Mustafa
- dragancesu
- Posts: 921
- Joined: Mon Jun 24, 2013 11:53 am
- DBs Used: DBF, MySQL, Oracle
- Location: Subotica, Serbia
Re: Imprimir PDF con caracteres especiales
@ 100,100 HPDFPRINT UNICODE "text like ŠĐŽĆČ "
Re: Imprimir PDF con caracteres especiales
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!
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!
Nada se pierde. Todo se transforma. (Lavoussier)
Nothing is lost. Everything changes.
Nothing is lost. Everything changes.
-
- Posts: 20
- Joined: Sun Dec 04, 2016 1:43 pm
- DBs Used: DBF
- Location: Murcia - España
Re: Imprimir PDF con caracteres especiales
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
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
Celes
Saludos / Regards - Cuanto mas simple mejor !! / The simpler the better !!
Saludos / Regards - Cuanto mas simple mejor !! / The simpler the better !!
- mustafa
- Posts: 1160
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: Imprimir PDF con caracteres especiales
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
Mustafa
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
- Attachments
-
- mostra.zip
- (56.48 KiB) Downloaded 160 times