Topic: script quick print
how to get quick print using script..
begin
SQLQuery('My SQLQUERY',Results1);// create first DataSet
frxDBDataset1 := TfrxDBDataset.Create(Main);
frxDBDataset1.UserName := 'Report1';
frxDBDataset1.CloseDataSource := True;
frxDBDataset1.OpenDataSource := True;
frxDBDataset1.DataSet := Results1;// set up report
Main.frxReport.Clear;
Main.frxReport.DataSets.Clear;
Main.frxReport.DataSets.Add(frxDBDataset1);// DESIGN MODE
//Main.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\ARP.fr3');
// Main.frxReport.DesignReport;// PREVIEW MODE
frxDBDataset1.DataSet.Close;
Main.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\ARP.fr3');
//Main.frxReport.ShowReport;
Main.frxReport.PrintOptions.Printer:= SQLExecute('select Printer from Pumps where id = (select Pumpid from Entry where id=(select max(id) from entry))');
frxDBDataset1.Free;
end;