//打印
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;
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;
解决方案 »
- 选择哪中报表工具,支持左侧固定格式
- 如何访问网址?
- 谁能告诉我,google搜索输入框里保存的历史内容,怎么删掉?在哪里?
- accept运行一段时间后报access violation at address 错误????
- 怎么判断文件存在?
- 从毕业到现在的一年中!
- 有关Table与ADOTable组件的setkey方法的请教,小虾请大侠给解决一下
- 请各位看看我的代码,哪里有错了?
- 怎样实现用Edit控件动态显示数据表中的数据,即用edit实现dbedit的功能,“代码”??
- 有人懂图书编目 MARC 如何生成吗?
- 获取webbroeser1中网页的句柄
- 安装完Delphi2010后,RC文件并没有关联到delphi,请问应该如果关联
StuReport.Template.OnLoadEnd:=stuWHForm.LoadEndEvent;