script quick print

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;