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.