Seleccionar un reporte cualquiera de una lista

[Carlos Arevalo]

Creo que el problema esta en que cada reporte esta hecho en un formulario aparte.

Actualmente hago esto para poder imprimirlos y al llamar al formulario tengo que incluirlo en la seccion USES.

Como podria pasar el nombre del formulario y del informe utilizando el procedure?

uses frmivalibrodecompras,frmestadodecuentabancario;

procedure imprimir(salidax,impresorax,reportex,copiasx,formulariox: string);
var cont: integer;
xreporte: TQuickRep;
begin

  if formulariox='FormRepivalibrocompras' then
  begin
    with FormRepivalibrocompras do
    begin

    if formatox='QuickRepivalibro' then
    xreporte:=QuickRepivalibro;

    end;
  end;

  if formulariox='FormRepestadodecuentabancario' then
  begin
    with FormRepestadodecuentabancario do
    begin

    if formatox='QuickRepestadodecuenta' then
    xreporte:=QuickRepestadodecuenta;

    end;
  end;


    xreporte.PrinterSettings.Copies:=strtoint(copiasx);


  if salidax='printer' then
  xreporte.print
  else
  xreporte.Preview;

end;