Imprimir PDF con caracteres especiales

HMG en Español

Moderator: Rathinagiri

Post Reply
jorge.posadas
Posts: 109
Joined: Mon May 19, 2014 7:43 pm
DBs Used: DBF, SQLite, MS-SQL, ACCESS, MariaDB (en proceso)
Location: Tizayuca, Hgo. México
Been thanked: 12 times
Contact:

Imprimir PDF con caracteres especiales

Post 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
Cordialmente

POSADAS SOFTWARE
Jorge Posadas Ch.
Programador independiente
Tizayuca, Hgo.
M é x i c o .
Movil +52 55 2038 5338
SKYPE: jorge.posadasch
Email: posadas_software@outlook.com

User avatar
mustafa
Posts: 1002
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 201 times
Contact:

Post 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

User avatar
dragancesu
Posts: 807
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia
Has thanked: 30 times
Been thanked: 231 times

Post by dragancesu »

@ 100,100 HPDFPRINT UNICODE "text like ŠĐŽĆČ "

User avatar
tave2009
Posts: 61
Joined: Tue Jul 14, 2009 3:33 am
Location: San Francisco, Córdoba, Argentina.
Been thanked: 1 time

Post 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!
Nada se pierde. Todo se transforma. (Lavoussier)
Nothing is lost. Everything changes.

movilceles
Posts: 11
Joined: Sun Dec 04, 2016 1:43 pm
DBs Used: DBF
Location: Murcia - España
Has thanked: 4 times
Been thanked: 7 times

Post 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
Celes
Saludos :P

User avatar
mustafa
Posts: 1002
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 201 times
Contact:

Post 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
Attachments
mostra.zip
(56.48 KiB) Downloaded 39 times

Post Reply