Win32Prn algumas linhas imprime muito pequeno.
Enviado: 06 Mai 2017 14:09
olá pessoal,
Com a rotina abaixo, consigo imprimir perfeitamente em uma impressora térmica não fiscal.
Mas com uma impressora HP DeskJet 3510 series, a primeira linha e a terceira imprime com caracteres muito
pequenos que não da para enxergar, porque em uma impressora imprime corretamente e na outra não ?
Harbour 3.2.0dev
Com a rotina abaixo, consigo imprimir perfeitamente em uma impressora térmica não fiscal.
Mas com uma impressora HP DeskJet 3510 series, a primeira linha e a terceira imprime com caracteres muito
pequenos que não da para enxergar, porque em uma impressora imprime corretamente e na outra não ?
Harbour 3.2.0dev
Código: Selecionar todos
oPrinter := Win32Prn():new( nome_impressora )
oPrinter:landscape := .f.
IF .NOT. oPrinter:create()
Alert("Erro Tentando Acessar a Impressora ; " + alltrim(nome_impressora) )
QUIT
ENDIF
If ! oPrinter:startdoc( "Reforco" )
Alert("Erro Tentando Enviar os Dados de Impressao")
QUIT
ENDIF
for x = 1 to 10
oPrinter:newline()
next
oPrinter:setfont('courier new',10,{1,13}, 700 ,.F.,.F.)
oPrinter:setprc( oPrinter:Prow() , Pcol() + 8 )
oPrinter:textout( alltrim( " ** RECIBO ** " ) ) --> ESSA LINHA IMPRIME MUITO PEQUENO, NAO DA PARA ENXERGAR
oPrinter:newline()
oPrinter:newline()
oPrinter:textout( " R$ " + transform( valor , "@E 99,999.99" ) )
oPrinter:newline()
oPrinter:newline()
oPrinter:textout(" "+DTOC(DATE())+" "+TIME()+" hs" ) --> ESSA LINHA IMPRIME MUITO PEQUENO, NAO DA PARA ENXERGAR
oPrinter:newline()
oPrinter:newline()
oPrinter:textout( " " + wmotdesconto )
oPrinter:setprc( oPrinter:Prow() , Pcol() )
oPrinter:textout( "." )
oPrinter:endDoc()
oPrinter:destroy()