if (dlgPrint->Execute())
  {
     TPrinter *Prntr=Printer();
     Prntr->BeginDoc();

     Image2->Picture->Assign(GetFormImage());
     Prntr->Canvas->Draw(0,0,Image2->Picture->Graphic);

     Prntr->EndDoc();
  }