asunto solucionado...
tenia un problema con el quick report, asi que he decidido imprimir utilizando la libreria printers. Solo una preguntilla mas:
¿como puedo hacer que pase de linea cuando el texto es mas largo que el folio? lo que intento que pase de linea es esto: texto:=memo.text inc(y, 100); TextOut(100, y, texto); Gracias. |
A ver si te sirve esto
Código:
// Suponiendo que caben 50 letras por linea Tambien deverias de controlar que no rompiera una palabra por la mitad. Espero te sirva |
tio gracias, con unos pequeños cambios me ha salido lo que queria.
:o :p :cool: :eek: :D :) ;) |
y que puedo hacer para que si la impresion que voy a llevar a cabo tiene mas de una pagina me imprima las dos paginas?
|
Tienes que saber la cantidad de lineas que le caben a la pagina, Entonces, cada vez que imprimes una linea, incrementas una variable contador. Si esta variable contador llega a las lineas maximas de la pagina, haces una llamada a Printer.NewPage
Espero te sirva |
La franja horaria es GMT +2. Ahora son las 06:20:41. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi