PDF em Clipper

[Anselmo Muller]

Alguém pode me ajudar como criar arquivo pdf acentuado?

Aberto com: Adobe Acrobat Reader Pdf DC

Figura 2.PNG (3.13 KiB) Exibido 4342 vezes

Aberto com: browse Chrome

Figura 1.PNG (2.64 KiB) Exibido 4342 vezes

[Anselmo Muller]

Alguém pode me ajudar como criar arquivo pdf acentuado?

Aberto com: Adobe Acrobat Reader Pdf DC

Figura 2.PNG

Aberto com: browse Chrome

Figura 1.PNG

[fladimir]

Meu sistema gera PDF usando o HARU porém no meu micro parou de gerar, mas em outro gera (salva) o q pode ter ocorrido

[juniorcamilo]

é possivel mudar fonte de uma parte da linha ou de uma linha do arquivo txt em sua rotina de criação para pdf?

[JoséQuintas]

A rotina de PDF criei há anos, depois nunca mais olhei, e não lembro mais detalhes.

À primeira vista não faz sentido misturar codepage dentro de um PDF, mas por outro lado, um texto de um livro ensinando português/inglês/francês/etc. acabaria usando várias codepages.

Vi sobre codepage no PDF quando criei a classe, depois nunca mais olhei.
Seria confirmar se há essa opção no PDF/HaruPDF, e se houver, é acrescentar na classe pra aceitar isso.

Pra definir a codepage padrão pra todo PDF, isso com certeza tem.
Uma opção padrão é WinAnsi, que usa os caracteres Ansi do Windows, mas.... Windows em inglês não vai ter o mesmo padrão do Windows em português.

Pois é... esse negócio de codepage ainda não está padronizado...
É difícil imaginar UTF-8 como padrão, porque o computador precisa fazer um trabalho violento pra trabalhar com isso.

Lembrando:
Em UTF-8, um caractere pode ser representado por até 6 caracteres.
Colocar em ordem alfabética significa primeiro traduzir esses 6 caracteres pra um único.
Substr(), At(), Len(), Scan(), etc. também significa primeiro traduzir o texto, o Harbour tem funções separadas pra trabalhar com UTF-8.
Falar que UTF-8 é padrão pra página de internet é uma coisa, usar no aplicativo e querer o mesmo resultado é outra totalmente diferente.
Um campo em DBF com 30 caracteres, precisaria ter 180 caracteres pra comportar os mesmos 30 em UTF-8.
Teoricamente... na prática não tem tamanho certo, pode ser qualquer tamanho entre 30 e 180.
E o NTX/IDX/CDX? Teria que ser feito pra 180 caracteres do mesmo jeito, pra comportar no máximo 30.
Ainda não faço idéia desse troço, e nem quero pensar nisso tão cedo.

Enquanto isso... resta o ANSI tradicional ou o UNICODE, que tem tamanho fixo.
Se trabalhamos com português Brasil... acho que basta a codepage ansi português Brasil e pronto.

[JoséQuintas]

Faltou dizer:

Eu uso PDF acentuado com a classe, e até hoje ninguém reclamou.
WinAnsiEncoding, acho que é essa que a classe usa.
E no aplicativo PTISO.

Porque escolhi assim?

Abro o fonte no bloco de notas tá ok.
Abro o txt no bloco de notas tá ok.
Abro o PDF em qualquer leitor e está ok.
No MYSQL, pelo Visual Basic ou pelo ASP do site está ok.
Se está ok em tudo, então está ok.

Tá certo?
Ao que tudo indica, está sim.

Ah sim....
Recentemente comprei o CEP dos correios, veio em MDB/Access.
Importando direto como UTF-8 muitas diferenças.....
Importando do jeito que uso no Harbour.... redondinho, toda acentuação funcionando.

Considero mais uma indicação de que estou usando tudo certo.

Mesmo assim, nas bases de dados evito acentuação, nada a ser convertido.

[juniorcamilo]

JoséQuintas...

Seu código serviu como uma luva em meu sistema(perfeito)! Em todos meus relatórios não precisei modificar nada! Mas como possuo TAGS(negrito, compactado, expandido e etc.), seria útil se houvesse uma maneira de implementar no seu código algo para isso!
no mais muito obrigado pela sua contribuição!!!

[JoséQuintas]

Mas como possuo TAGS(negrito, compactado, expandido e etc.), seria útil se houvesse uma maneira de implementar no seu código algo para isso!

Isso é obtido na escolha de fonte.
Expandido/Compactado seria um fonte de tamanho diferente.
Negrito e sublinhado provavelmente também na escolha de fonte.

[JoséQuintas]

Do danfe da sefazclass/hbnfe

Código: Selecionar todos

   IF ::cFonteNFe == "Times"
      ::oPDFFontNormal     := HPDF_GetFont( ::oPdf, "Times-Roman", "CP1252" )
      ::oPDFFontBold := HPDF_GetFont( ::oPdf, "Times-Bold", "CP1252" )
   ELSE
      ::oPDFFontNormal     := HPDF_GetFont( ::oPdf, "Courier", "CP1252" )
      ::oPDFFontBold := HPDF_GetFont( ::oPdf, "Courier-Bold", "CP1252" )
   ENDIF

[Jairo Maia]

Também uso a PDFClass do José, e em alguns documentos tem algumas fontes diferentes, e também negrito ou normal.

Fontes suportadas pela HARUPdf:

Courier
Courier-Bold
Courier-Oblique
Courier-BoldOblique

Helvetica
Helvetica-Bold
Helvetica-Oblique
Helvetica-BoldOblique

Times-Roman
Times-Bold
Times-Italic
Times-BoldItalic

Symbol
ZapfDingbats