Imprimir con TPrinter varias hojas

[ivantj]

ok gracias, pues si mira el tipo de documento es de tipo Carta, es una hoja tamanio carta, pero suponiendo que encuentro mas o menos cuantas lineas toma esa hoja, la pregunta es, en la opcion del Canvas.Textout(); como defino dentro apartir de cuantas lineas genero una hoja nueva, o apartir de cuantas lineas imprimo la parte de firmas y continuo en otra hoja, esa es la duda mas que nada, por que he buscado informacion pero no he encontrado nada, o mejor dicho algo que explique parte del codigo, ya que es la primera vez que me veo en la necesidad de imprimir sin un reporteador ya que son solo datos de una consulta y que no requiere tanta implementacion, por eso utilice mejor el Tprinter.

muchas gracias por la ayuda, y a ver si alguien ya ha pasado por esto y pudiera poner algun ejemplo de como hacerle,

datos datos datos datos datos datos datos datos
datos datos datos datos datos datos datos datos
datos datos datos datos datos datos datos datos
datos datos datos datos datos datos datos datos
datos datos datos datos datos datos datos datos
datos datos datos datos datos datos datos datos

//Si me paso de un cierto numero de lineas,
//Imprimo las Firmas
---------- ----------- --------- -----------
nombre1 nombre2 nombre3 nombre4


//Continuar en otra hoja imprimiendo
datos datos datos datos datos datos datos datos
datos datos datos datos datos datos datos datos
datos datos datos datos datos datos datos datos

en si es lo que quiero, pero como repito, es una hoja tamanio carta, y quisiera saber como pasar a una nueva pagina si la cantidad de datos
es mayor que la hoja, y en dado caso de que los datos sean pocos, que las firmas salgan hasta el pie de pagina, hasta abajo, lo cual indica que tendria que llenar la hoja de espacios en blanco hasta llegar al pie de pagina para desplegar las firmas, no se si me explico bien o no , gracias de antemano si me pueden ayudar.

[[newtron]]

A ver....

Suponiendo que el documento tenga 210 de ancho por 148 de alto que sería la mitad de un A4 tendrías que hacer lo siguiente:

Te pongo una idea de cómo podrías hacerlo que deberás retocar (no lo he probado).

Código Delphi [-]
LongitudImpresa:=10; // Aquí vamos a almacenar el tamaño impreso del documento, dejamos un pequeño margen por arriba
for i := 0 to Memo1.Lines.Count do begin
          Canvas.TextOut(200,LongitudImpresa,Memo1.Lines.Strings[i]);
  LongitudImpresa:=LongitudImpresa+Micanvas.TextHeight(Memo1.Lines.Strings[i]);
  If LongitudImpresa>130 then begin  // Dejamos el margen inferior en blanco
    Printer.NewPage;
    LongitudImpresa:=10; // Saltamos de página y volvemos a inicializar la variable
  end;
end;

Espero que esto te sirva de algo
Saludos

[ivantj]

Muchas gracias Newtron, probare tu codigo, sorry si respondo hasta ahora pero ya era de madrugada cuando te respondi, ahorita probare tu codigo para imprimir directamente y hacer las pruebas, muchas gracias por la respuesta, y reporto los resultados.


yo estaba viendo el uso de tprinter pero por lineas de codigo, creo que no lei bien la respuesta por que ya veo que se trabaja segun la medida del documento a imprimir :S:S:S, muchas gracias