PDA

Ver la Versión Completa : Avanzar una pagina, por cada registro


alcides
31-03-2010, 13:19:42
Hola a todos y gracias por la ayuda que me puedan brindar

Utilizo delphi 7 y mis tablas estan en access

Resulta que quiero imprimir X cantidad de registro y tengo lo siguiente


begin
Qry_Imprime.Close;
Qry_Imprime.Parameters.ParamByName('playa_empleado1').value := playa_empleado1.Text;
Qry_Imprime.open;
While not qry_imprime.Eof do begin
ppReport1.Print;

qry_imprime.Next
end
ppReport1.Print;
end;

pero resulta que quiero que avance la pagina cada vez que lea un registro

de la forma como esta tengo que cerrar y seleccionar el printer cada vez que imprime un registro, y quiero seleccionar el printer una sola vez y que imprima todo, pero avanzando una pagina cada vez que imprima un registro.


Gracias mil,


Alcides
Rep.Dom.

Casimiro Notevi
31-03-2010, 13:56:37
¿Y qué usas para imprimir?

alcides
31-03-2010, 14:01:32
perdon, utilizo reportbuilder




Alcides
Rep.Dom.

Casimiro Notevi
31-03-2010, 14:36:54
Aumenta el tamaño del "cuerpo" hasta que la suma de "cabecera"+"cuerpo"+"pié" sea cercano al tamaño de la página completa.
Luego pon todo a tamaño "estático" porque si dejas "dinámico" se autoajustará y no servirá de nada, ya sabes, tanto la cabecera, cuerpo y pié ponlo a tamaño estático. Con botón derecho en cada uno de ellos.


http://s2.subirimagenes.com/imagen/4292946pantallazo1.png


Bueno, yo lo llamo cabecera, cuerpo y pié... pero veo que en reportbuilder se llama: encabezado, detalle y pié :)

alcides
31-03-2010, 16:56:37
Gracias Casimiro,

la forma como estoy leyendo el query no esta bien, porque cada vez que imprimo un registro, le doy close y de esa forma lee un nuevo registro PERO DEBO SELECCIONAR LA IMPRESORA NUEVA VEZ, Y ASI CON CADA UNO DE LOS REGISTRO HASTA LEERLO TODO.


Alcides
Rep.Dom.

alcides
31-03-2010, 21:34:27
Hola nueva vez,

este es el qry que utilizo, para que verificar que es lo no estoy haciendo. Que no imprime todos los registros que cumplan con el parametro, uno por pagina sin necesidad de seleccionar la impresora por cada registro.

select *
from Maestro_empleados
where playa_empleado = :playa_empleado1
and Estatus_Empleado <> 'I'
order by codigo_empleado1,codigo_empleado2,codigo_empleado3;



Gracias mil,


Alcides
Rep.Dom.