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