//列印按鈕的時候動作

procedure TForm1.Button1Click(Sender: TObject);
var
  AppPath: string;
begin

      AppPath := ExtractFilePath(Application.ExeName);
      try
           frxReport1.LoadFromFile(AppPath + 'Operator.fr3', True);
           Application.CreateForm(TFrmPrintView,FrmPrintView);
           frxReport1.Preview := FrmPrintView.frxPreview;

      except
           on e: Exception do
           begin
             Application.MessageBox(PChar('打印出現異常，請重試！或與系統管理員聯絡！'), '提示', MB_OK + MB_ICONERROR);
             Exit;
           end;
      end;

      Try
           frxReport1.ShowReport;
           FrmPrintView.ShowModal;
       Finally
           FrmPrintView.Free;
           FrmPrintView := Nil;
       End;

end;

在FrmPrintView窗體中放置一列印按鈕，控制元件frxPreview，單擊事件寫上frxPreview.Print;就OK了。

///窗體顯示的時候直接將資料取出

procedure TForm1.FormShow(Sender: TObject);
begin
    try
      with ADOQuery1 do
      begin
          ADOQuery1.Close;
          ADOQuery1.SQL.Clear;
          ADOQuery1.SQL.Add('select * from [user]');
          ADOQuery1.Open;
         // ADOQuery1.ExecSQL;

      end;
    except

    end;
end;