Imprimir PDF con caracteres especiales

[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

[mustafa]

Mira la solución de Pepe Ruano
https://www.hmgforum.com/viewtopic.php? ... afa#p61943
a mi siempre no me funciona
Saludos
Mustafa

[dragancesu]

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

[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!

[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

[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