Imprimindo Extenso com Win32prn

[Sergio_ASSilva]

Boa noite a todos, pessoal tenho uma rotina em clipper que fazia a impressao de um numeral em extenso e agora em win32prn nao estou conseguindo controlar a quebra de linha e preencher o final com alguns astericos, alguem já fez esta rotina em win32prn ?, gostaria da ajuda de voces.

Grato

Sérgio

[Maligno]

Na seção "Contribuições, Dicas e Tutoriais" publiquei minha função de divisão silábica, caso queira aproveitar. Link: viewtopic.php?f=43&t=7801

[sygecom]

Eu uso essa função de extenso:
https://pctoledo.org/download/cop ... t&deonde=2

E uso assim para imprimir:
viewtopic.php?f=4&t=7736&p=44722&hilit=win32prn#p44722

[Sergio_ASSilva]

Demorei pra agradecer, pois tive que sair um pouco, obrigado a todos que me ajudaram.
:|<

[Sergio_ASSilva]

sygecom, tentei executar como vc me indicou, mas nao estou conseguindo, estou fazendo assim:


*******************************************************************************
FUNCTION MAIN()
local cFile := EXT(123,50,50,"reAl","reAIs")
local oPrinter := win32prn()

oPrinter:create()
oPrinter:startdoc()
nResult := PrintFileRaw(getdefaultprinter(),cFile,"Teste For PrintFileRaw()")
oPrinter:enddoc()
oPrinter:destroy()
return
*******************************************************************************

[infosys2]

Voce precisa mostrar a sua funcao ext(), para saber como poderia ficar, aparentimente a sintaxe estar errada...

[sygecom]

Sergio, vc misturou as funções, veja com calma o exemplo do link que deixe que vc verão que dah certo, alias, crie um TXT na mão mesmo e compila em xharbour o exemplo que postei no link e manda imprimir seu txt que vc verá que da certinho !!!

[Sergio_ASSilva]

Sygecon, fiz como mecinado no exempolo e não imprimia nada, entao tentei outras opcoes, com o comando TexOut() fez a impressao, estou em Sapa e assim que retornar vou testar novamente, obrigado pela atencao.

Sérgio

[sygecom]

ok, qualquer coisa prende o grito.