//打印
procedure TstuWHForm.PrintBtnClick(Sender: TObject);
begin
    if  WHDataSet.RecordCount >=1 then
    begin
       StuReport.Template.OnLoadEnd:=stuWHForm.LoadEndEvent;
       StuReport.Template.Load;
       StuReport.DeviceType:='Screen';
       StuReport.Print;
    end;
end;
procedure TstuWHForm.StuReportPreviewFormCreate(Sender: TObject);//PreviewFormCreate属性已经找到
begin
   StuReport.PreviewForm.WindowState :=wsMaximized;
end;procedure  TstuWHForm.LoadEndEvent(Sender: TObject);//LoadEndEvent  请问这是一个什么属性
begin
  StuReport.OnPreviewFormCreate:=PreviewFormCreateEnvent;
end;