关于窗体，你是救世主

Question

if not Assigned(Form3) then begin
   Application.CreateForm(TForm3,Form3);
   try
   if Printer.Printers.Count=0 then
    begin
    ShowMessage('请首先安装打印机');
    Form3.Close;
   end  else
    with Printer do
    begin
      BeginDoc;
      Form3.QuickRep1.Print; 
      Form3.Close;
      EndDoc;
    end;

Answer 1

FORM3上的控件也应该重新Create！
试一试吧！！

Answer 2

你的三个窗体都是自动创建的，所以也就没有必要使用cafree等语句去释放他们，否则下次使用的时候必然报错。
第二，在form2调用form3上的quickrep预览，应该不要使用form3.show然后再preview的，直接调用form3.quickrep.preview即可。另外，a.qrprinter = b.qrprinter是什么东东啊？看不懂。
form2是showmodal的，你要在某个地方加入modalresult ：= mrok去关闭它才行。