报表打印问题？

Question

动态创建：
  f:= TForm1.create(Self);
  try
    f.QuickRep1.PreviewModal;
  finally
    f.free;
  end;
//将工程文件原代码的Applicatin.CreateForm(TForm1,form1)删除

Answer 1

还是有错误提示 “out of resources!”！

Answer 2

delphi 6.0搞了个十一次挺好的，，，也没出错。

Answer 3

跑到同事处delphi 5.0也没有这回事情。

Answer 4

我是这样调用的：
QRLable放在SummaryBand上！
frmViewUseCasePrint:=TfrmViewUseCasePrint.Create(Application);
   try
     assignField;
     frmViewUseCasePrint.QuickRep1.Preview;
   finally
     frmViewUseCasePrint.free;
   end;
assignfield为函数： procedure TfrmViewUseCase.assignField;
begin
   frmViewUseCasePrint.QRLabel19.Caption:=edttusID.Text;
   frmViewUseCasePrint.QRLabel20.Caption:=cmbprjID.Text;
   frmViewUseCasePrint.QRLabel21.Caption:=cmbprjName.Text;
   frmViewUseCasePrint.QRLabel22.Caption:=cmbModuleName.Text;
   frmViewUseCasePrint.QRLabel23.Caption:=cmbModuleID.Text;
   frmViewUseCasePrint.QRLabel24.Caption:=edtHandler.Text;
   frmViewUseCasePrint.QRLabel25.Caption:=edtAuditor.Text;
   frmViewUseCasePrint.QRLabel26.Caption:=edtModuleVersion.Text;
   frmViewUseCasePrint.QRLabel27.Caption:=edtHandleDate.text;
   frmViewUseCasePrint.QRLabel28.Caption:=edtAuditDate.text;
   frmViewUseCasePrint.QRRichText1.Lines.Text:=memReference.Text;
   frmViewUseCasePrint.QRRichText2.Lines.Text:=memEnvironment.Text;
   frmViewUseCasePrint.QRRichText3.Lines.Text:=memInput.Text;
   frmViewUseCasePrint.QRRichText4.Lines.Text:=memOutput.Text;
   frmViewUseCasePrint.QRRichText5.Lines.Text:=memSpecial.Text;
   frmViewUseCasePrint.QRRichText6.Lines.Text:=memDependence.Text;
   frmViewUseCasePrint.QRRichText7.Lines.Text:=edtAuditOpinion.Text;
end;

Answer 5

  try
    frmViewUseCasePrint:=TfrmViewUseCasePrint.Create(Application);
    assignField;
    frmViewUseCasePrint.QuickRep1.Preview;
  finally
    frmViewUseCasePrint.free;
  end;

Answer 6

frmViewUseCasePrint这个窗体放在try里头试试先

Answer 7

我也正在找这个问题的解决方法，有答案请通知我一声[email protected]

Answer 8

一段代码begin
  try
    if clientinreport=nil then
      application.CreateForm(tclientinreport,clientinreport);
    clientinreport.ADOQuery1.Open;
    clientinreport.PreviewModal;
  finally
    clientinreport.Free;
    clientinreport:=nil;
  end;end;