RxFPC:new options rxpoShowPreview for RxDBGridPrint.Options

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6748 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/trunk/rxdbgrid_print/rxdbgridprintgrid.pas

@@ -46,7 +46,9 @@ type
      rxpoShowFooterColor,
      rxpoShowReportTitle,
      rxpoHideZeroValues,
-     rxpoColSpanning
+     rxpoColSpanning,
+     rxpoShowPreview
+
      );
   TRxDBGridPrintOptions = set of TRxDBGridPrintOption;
 
@@ -157,6 +159,7 @@ begin
   FView.Font.Size:=12;
 //    FView.Font.Assign(FTitleFont);
   FView.Memo.Add(FReportTitle);
+  FView.AutoSize:=true;
 
 //  FPage.Objects.Add(FView);
 
@@ -473,7 +476,13 @@ begin
 
     frDesigner:=SaveDesign;
 
-    FReport.ShowReport;
+
+    FReport.PrepareReport;
+    if rxpoShowPreview in FOptions then
+      FReport.ShowPreparedReport
+    else
+      FReport.PrintPreparedReport('', 0);
+
     Result:=true;
   finally
     FreeAndNil(FColumnDataSet);