Imprimir en FastReport 2 copias en la misma hoja por pagina
 

Buenas. A ver si alguien puede ayudarme porque llevo varios días dando vueltas a un asunto y no consigo darle solución.

Estoy intentando hacer un informe con FastReport 5.3 de una factura, con su encabezado de pagina para los datos del cliente y la empresa, las lineas de detalle y el pie con los totales de la factura. Hasta ahí sin problemas tengo configurada la factura y me imprime correctamente tanto 1 hoja como si la factura tiene mas de 1 hoja. Pero ahora quiero que cada hoja la imprima 2 veces en la misma hoja ( factura y copia para el cliente) y no encuentro la forma de hacerlo a nivel de informe. Si alguien pudiera darme luz le estaría agradecido.

Un saludo.

Hola.
Si entendí bien, quieres dos copias de cada hoja de la factura.
En el botón que mandes a imprimir sería algo así:

Código Delphi [-]
procedure TFormFactura.BTImprimirClick(Sender: TObject);
var
  cPath: string;
begin
  cPath := ExtractFilePath(Application.ExeName);
  QCFactura.Close;
  QCFactura.SQL.Text := 'Select * from cfactura where numero = '+
                                    QuotedStr(FacturaNUMERO.AsString);
  frxReport1.LoadFromFile(cPath + 'REPORTS\Factura.fr3');
  frxReport1.PrintOptions.Copies := 2;
  frxReport1.PrepareReport(True);
  frxReport1.Print;
end;

Un saludo.

No exactamente. Quiero que cada pagina me la imprima dos veces pero en la misma hoja una original y otra para el cliente. Imagina que una factura tiene dos paginas, quiero que en la pagina 1 imprima la pagina 1 y su copia y en la 2 la pagina 2 y su copia. repitiendo encabezados, lineas de detalle y pie.

Cuando dices página, te refieres a la factura?
Que te imprima cada factura dos veces pero en la misma página?

¿Y para cortar el papel? ¿tijeras, cutter, a mano...?

2 copias en una hoja
 

Hola, puedes crearte un report de una página, diseñas la factura en media página y luego réplicas toda la información en la parte inferior. Lo más complicado es gestionar facturas de más de una hoja pero como puedes saber las líneas q hay por cada media página lo puedes hacer.
Espero te ayude

no, lo que quiero es que cada pagina de la factura me la imprima dos veces en la misma pagina

No se como puedo replicar toda la información en la parte inferior, puesto que los datos de la cabecera y pie de al factura estan en un encabezado y pie de pagina para que se repitan en todas las hojas.

el papel es un A4 perforado por la mitad

Entonces lo que tienes que hacer es modificar el tamaño del papel (página en FastReport), ajustarlo a la medida de lo que quieres imprimir.
Ir haciendo pruebas con los margenes de la cabecera y del pie de página.
Y después que te imprima las dos copias.
Un saludo.

Claro, así es.

¿Así es que lo quieres?

Esto es exactamente lo que quiero movorack

Solución
 

Por si a alguien le puede intresar publico la solucion que le he dado.

Lo primero que he hecho ha sido configurar el informe como un A5 Apaisado.
Despues he modificado los siguientes parametros

Código Delphi [-]
     frxReport1.PrintOptions.Copies := 2;
     frxReport1.PrintOptions.PrintMode := pmJoin;
     frxReport1.PrintOptions.PrintOnSheet:= DMPAPER_A4;// 9 o A4

Excelente! ^\||/