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?
Código:
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;