请问打印时的printing in progress错误

Question

这段代码如下uses printers;...var
  printer: TPrinter;
  MyRect: TRect;
begin
  if PrintDialog1.Execute then
  begin
    with ImageTemp.Picture.Bitmap do
    begin
      Printer.BeginDoc;
      MyRect := Canvas.ClipRect;
      MyRect := Rect(0,0,ImageTemp.Width,ImageTemp.Height);
      Printer.Canvas.StretchDraw(MyRect,ImageTemp.Picture.Bitmap);
      Printer.EndDoc;
    end;
  end;
执行到Printer.BeginDoc就出现这样的错误：
---------------------------
Debugger Exception Notification
---------------------------
Project Poseidon.exe raised exception class EPrinter with message 'Printing in progress'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------我在自己机器上安装的虚拟打印机，和别人有打印机的机器上试都是这个错误，打印机应该是没问题的，因为用虚拟打印机自带的测试程序可以打印。请问各位高手这个问题如何解决的？

Answer 1

我靠，无语中，我头脑发昏了，printer对象没有被创建，能打印就见鬼了，各位不好意思，见笑了