Ver Mensaje Individual
  #2  
Antiguo 07-04-2006
Avatar de mazinger
mazinger mazinger is offline
Miembro
 
Registrado: jul 2004
Ubicación: Zamora
Posts: 85
Reputación: 20
mazinger Va por buen camino
Para llamar a un parámetro:

Código:
VCLReport1.Report.Params.ParamByName('IdINI').Value := IdIni;
Seleccionar el archivo .rep que quieres llamar:

Código:
         VCLReport1.FileName := 'Factura.rep';
Y por último el codígo completo de llamada a una funcion de impreesión de un informe en una dll:

Código:
Function ImprimeFactura(aDB, aSerie : String; IdIni,IdFin : Integer; Previsual, AutoNombre, PDF,Impresion,Archivo: Boolean) : Boolean;
Var
  Directorio, ConnectionString : String ;
Begin
   Inicio;
   Result := False;
   With dmRecursos.VCLReport1 do
     Try
         ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
              aDB+';Jet OLEDB:Engine Type=4';
         Directorio := ExtractFilePath(Application.ExeName);
         dmRecursos.ADOConnection1.ConnectionString := ConnectionString;
         dmRecursos.ADOConnection1.Open;
         FileName := Directorio +'informes\' +'Factura.rep';
         CambiaImpresora(LeeTextoOpcion('prn_ImpresoraFacturas'));
         Report.PrinterSelect := pRpUserPrinter1;
         Report.DatabaseInfo.Items[0].ADOConnectionString := ConnectionString;
         ShowPrintDialog := False;
         ShowProgress := False;
         Report.Params.ParamByName('IdINI').Value := IdIni;
         Report.Params.ParamByName('IdFIN').Value := IdFin;
         Report.Params.ParamByName('SERIEFACTURA').Value := aSerie;
         Report.Params.ParamByName('ARCHIVO').Value := Archivo;
         Title := 'Impresión de fras. Serie ' + aSerie+' desde la '+
                      IntToStr(IdIni)+' hasta la '+IntToStr(IdFin);
         Preview := Previsual;
         If AutoNombre Then
            SaveToPDF(Directorio+'FrasSerie_' + aSerie+'_'+IntToStr(IdIni)+
                                        '_'+IntToStr(IdFin)+'.PDF');
         If PDF Then Begin
           With dmRecursos.SaveDialog1 do Begin
             InitialDir := Directorio;
             FileName := 'FrasSerie_' + aSerie+'_'+IntToStr(IdIni)+'_'+IntToStr(IdFin)+'.PDF';
             Result := Execute;
             SaveToPdf(FileName,True);
           End;
         End  Else Execute;
     Finally
         dmRecursos.FreeOnRelease;
     End;
End;
Espero que te ayude
__________________
Visita mi página (en construcción):

http://mazinger.wordpress.com/
Responder Con Cita