OBJETO PRINTER
Olá, estou utilizando o Objeto printer para poder imprimir as notas só que em cada impressão, os campos não saem no mesmo lugar sempre. Teria alguma coisa q eu poderia fazer pra corrigir isso.
Desde já agradeço a ajuda.
Desde já agradeço a ajuda.
Não sei se vc já está utilizando os comandos abaixo...de qualquer forma o currentX e o currentY garantem a impressão precisa nas coordenadas passadas, veja exemplo:
printer.scalemode=vbCentimeters 'Define escala em centÃÂÂmetros
printer.currentx=3
printer.currenty=2
printer.print "Teste"
printer.enddoc
Neste exemplo a palavra teste será impressa 3 centÃÂÂmetros(coluna) e 2 centimetros(linha).
printer.scalemode=vbCentimeters 'Define escala em centÃÂÂmetros
printer.currentx=3
printer.currenty=2
printer.print "Teste"
printer.enddoc
Neste exemplo a palavra teste será impressa 3 centÃÂÂmetros(coluna) e 2 centimetros(linha).
para ordernar pelas casas decimais é só fazer assim:
coloca em centimetros igual o Frau passou
e depois
coloca em centimetros igual o Frau passou
e depois
'Printer.CurrentX = posiçãofinal - valorFormatado
'desse jeito ele ja vai ordernar pelas casas decimais.
Printer.CurrentX = 10 - Printer.TextWidth(Format(xValor, "#0.00"))
Printer.print Format(xValor, "#0.00")
Companheiro, eu imprimo nota com o print #1 e funciona direitinho...
close #1
Open "lpt1" For Output As #1
print #1; tab(90); rs!data
print #1; tab(10); rs!nomecliente;tab(50);rs!cnpj
close #1
e ai vai, se precisar comprimir o texto use chr(15) para compressao, e chr(18) para voltar a impressao normal
flw
close #1
Open "lpt1" For Output As #1
print #1; tab(90); rs!data
print #1; tab(10); rs!nomecliente;tab(50);rs!cnpj
close #1
e ai vai, se precisar comprimir o texto use chr(15) para compressao, e chr(18) para voltar a impressao normal
flw
Tópico encerrado , respostas não são mais permitidas