Original, Duplicado triplicado

[tulio]

Gracias a los dos por responder

el reporteador es QuickReport, me gusto lo que dijo azidrain, como es que hay que ponerlo en el beforeprint del reporte, como se hace.

Muchas gracias.

[Minio]

tulio podrías comentar que solucion le diste??? yo trato de hacer algo parecido pero no se bien como.

Gracias.

[tulio]

Hola Minio

lo que termine haciendo fue imprimir tres veces el reporte y antes de cada impresion ponia, Original, Duplicado triplicado. Pero me gusta la propuesta que dio en este tema el compañero azidrain que no lo pude hacer

Saludos y Gracias

tulio

[Minio]

Gracias por responder, al final logre sacarlo. Lo hice en el BeforePrint:

Código Delphi [-]
  case QuickRep1.PageNumber of
    0: QRLabel1.Caption := 'Original factura';
    1: QRLabel1.Caption := 'Copia de cortesia';
    2: QRLabel1.Caption := 'Copia contabilidad';
    3: QRLabel1.Caption := '';
  end;

He añadido un QRCompositeReport al que le añado informes según una variable donde guardo la cantidad de copias que quiero. En su evento OnAddReports pongo esto:

Código Delphi [-]
var
  NCopias: Integer;
begin
  NCopias := 0;
  while NCopias < Form1.CopiasFactura do
    begin
      QRCompositeReport1.Reports.Add(Form2.QuickRep1);
      NCopias := NCopias + 1;
    end;

Y para terminar en el botón imprimir esto:

Código Delphi [-]
Application.CreateForm(TForm2, Form2);
 QRCompositeReport1.Reports.Clear;
QRCompositeReport1.Prepare;
QRCompositeReport1.ExportToFilter(TQRPDFDocumentFilter.Create('Factura.pdf'));
Form2.Destroy;
ShellExecute(FmFacCli.Handle, nil, PChar('Factura.pdf'),'', '', SW_SHOWNORMAL);

Con esto ultimo genero la factura la guardo como PDF con la ayuda del componente QRPDFFilter y lo abro con Acrobat Reader y me sale directamente, y tengo guardada una copia en disco.

Bueno gracias a todos.