1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| procedure Imprime(l_Nom_Report : string; l_Imprimante : string);
var
RvProject : TRvProject;
RvSystem : TRvSystem;
l_Device : TRpDevice;
Database : TRaveDatabase;
St : string ;
begin
g_LocalMDB.Close;
database :=TRaveDatabase.Create(nil);
l_Device := TRpDevice.Create;
l_Device.Copies :=2;
RvProject := TRvProject.Create(nil);
RvSystem := TRvSystem.Create(nil);
try
RvProject.ProjectFile := '.\report\' + l_Nom_Report;
rvProject.Open;
Database := TRaveDatabase(RvProject.ProjMan.FindRaveComponent('data', nil));
Database.AuthRun.Datasource := g_ConnectionLocal;
RvProject.Engine := RvSystem;
//RvSystem.DefaultDest := rdPreview;
RvSystem.DefaultDest := rdPrinter;
RvSystem.DoNativeOutput := false;
RvSystem.SystemSetups := RvSystem.SystemSetups - [ssAllowSetup];
RvProject.Execute;
finally
RvSystem.Free;
rvProject.Close;
RvProject.Free;
l_Device.Free;
end;
g_LocalMDB.Open;
end; |
Partager