PC Toledo

Boa noite hs_paulo.

Eu não encontrei erro algum.

Adicionei ao Teste.PRG um loop para imprimir 8 números na mesma página.
Veja o resultado no Teste.PDF
Também adicionei o executável Teste.EXE criado a partir do Teste.PRG que gerou o Teste.DBF.

Caso isto não funcione é possível que o arquivo TTF esteja corrompido. Experimente usar este do anexo abaixo.

O o programa que voce enviou esta imprimindo correto aqui, Porem eu compilei o fonte que voce mandou e imprimiu errado.

O problema só pode estar na compilação.

Como voce compilou? com que versao?

Hasse,

Muito obrigado pela sua ajuda. Consegui resolver.

Como voce colocou o programa e aqui deu erro tambem, procurei no forum e encontrei uma referencia a "caracteres desconfigurados", e ai, acrescentei as algumas linhas como recomendado por Kapiaba. Então o inicio do programa ficou:

#include "hbcompat.ch"
#include "win32prn.ch"

Request HB_LANG_PT
Request HB_CODEPAGE_PT850
Request HB_CODEPAGE_PTISO

function main ()

HB_SETCODEPAGE("PTISO")

.
.
.
.
Agradeço muito a sua atenção, sem voce não teria encontrado a solução.

Fico satisfeito que você conseguiu resolver o problema.