PDA

Ver la Versión Completa : Imprimir varias copias en fastReport


DANY
01-12-2008, 19:55:17
Voy al grano.
Necesito que desde el editor de codigo de FastReport , dependiendo del tipo de comprobante se impriman varias copias.
lo que hice fue guardar en el evento OnStarReport el siguiente codigo:

if Trim( <F."TipoComprobante">)='FA' then
Begin
report.PrintOptions.Copies:=3;
End
Else
Begin
report.PrintOptions.Copies:=2;
End;

Si previzualiso el reporte me predetermina bien el numero de copias.
Pero luego cuando la aplicacion manda a imprimir de la siguiente forma:


Reporte.PrintOptions.ShowDialog := False ;
Reporte.Print ;

Manda a imprimir el numero de copias almacenado en el objeto report y no las indicadas por codigo.

Saludos...

Combat-F2D
02-12-2008, 07:34:32
prueba con:

frxReportEtiqueta.PrintOptions.Printer := 'la impresora que sea';
frxReportEtiqueta.PrintOptions.ShowDialog := False;
frxReportEtiqueta.PrintOptions.Copies := EditNCopias.AsInteger;

frxReportEtiqueta.PrepareReport;
frxReportEtiqueta.Print;

DANY
02-12-2008, 21:43:24
No me explique bien.
El diseño de los repotes se guardan el la base de datos.
Un cliente puede utilizar 3 copias y otro 2, el ejecutable no cambia.
por eso quiero configurar la cantidad de copias desde el propio fast Report.
por eso desde el editor de codigos de fastReport Hago:

procedure FacturaMatricialOnStartReport(Sender: TfrxComponent);
begin

if Trim( F."TipoComprobante")='FA' then
Begin
report.PrintOptions.Copies:=3;

End
Else
Begin
report.PrintOptions.Copies:=2;


End;

end;


pero cuando mando a imprimir sin vista previa no respeta el codigo desde el editor de fast.