Ver Mensaje Individual
  #4  
Antiguo 11-11-2004
Carlos Arevalo Carlos Arevalo is offline
Miembro
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 111
Reputación: 22
Carlos Arevalo Va por buen camino
Gracias Lepe por contestar.
Tengo una lista de reportes en un stringgrid donde la col1 es el nombre del formulario y la col2 el nombre del reporte.
Lo que quiero es poder seleccionar de la lista el formulario y poder imprimirlo con un procedimiento generico para todos los reportes y no declarar cada reporte como actualmente lo hago.

Código:
procedure imprimir(formulariox,formatox: string);
var cont: integer;
xreporte: TQuickRep;
begin

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

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

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

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

    end;
  end;

  xreporte.Preview;

end;
Gracias
__________________
Carlos Arevalo
MSN Messenger: carlos@arevalo.com.ve
Responder Con Cita