if (dlgPrint->Execute()) 
{ 
TPrinter *Prntr=Printer(); 
Prntr->BeginDoc(); 
Prntr->Canvas->Draw(0,0,(TGraphic*)GetFormImage()); 
Prntr->EndDoc(); 
}