comando printer.canvas
Pessoal, utilizo o comando printer.canvas para imprimir relatórios. Mas o problema é que quando uso uma determinada impressora (lx300) o relatório fica 100¬, mas quando mudo a impressora (lq 810) o relatório sai tudo errado, com maiores espaçamentos. Em impressoras jato de tinta o espaçamento é reduzido. Alguém conhece alguma solução?
Obrigado!
Obrigado!
Xdelphi
Curtidas 0
Respostas
Edilcimar
31/01/2004
var indicevertical, indicehorizontal : real;
indicehorizontal := printer.pagewidth;
indicevertical := printer.pageheight;
showmessage(floattostr(indicehorizontal) + ´ ´ +floattostr(indicevertical));
utilizando a lx com uma determinada resolução isto mostrará o tamanho da largura e altura da página(se vc mudar a resolução verá que estes números modificam), uma vez acertada a impressão utilize
indicehorizontal := printer.pagewidth / 960 (supondo que 960 seja o número mostrado no showmessage)
indicevertical := printer.pageheigth / 1600 (supondo que 1600 seja o número mostrado no showmessage)
a partir daí utilize estes índices na hora da impressão que cada vez que for imprimir, porém não se esqueça que a coluna e a linha são inteiros, portanto arredonde no printer.canvas.textout()
indicehorizontal := printer.pagewidth;
indicevertical := printer.pageheight;
showmessage(floattostr(indicehorizontal) + ´ ´ +floattostr(indicevertical));
utilizando a lx com uma determinada resolução isto mostrará o tamanho da largura e altura da página(se vc mudar a resolução verá que estes números modificam), uma vez acertada a impressão utilize
indicehorizontal := printer.pagewidth / 960 (supondo que 960 seja o número mostrado no showmessage)
indicevertical := printer.pageheigth / 1600 (supondo que 1600 seja o número mostrado no showmessage)
a partir daí utilize estes índices na hora da impressão que cada vez que for imprimir, porém não se esqueça que a coluna e a linha são inteiros, portanto arredonde no printer.canvas.textout()
GOSTEI 0