Отправить на принтер содержимое формы

[betirsolt]

всем привет,я вот в своей проге хотел добавить возможность отправки на печать и по книге Библия дельфи написал следующую процедуру

procedure Tmesform.ToolButton1Click(Sender: TObject);
 var
 X1,X2,Y1,Y2:Integer;
 PointsX,PointsY:double;
 PrintDlg:TPrintDialog;
begin
  // Создаю и отображаю на экране стандартное окно печати
 PrintDlg:=TPrintDialog.Create(Owner);
 if PrintDlg.Execute then
  begin
  //Начинаю новый документ
   toolbar1.Visible:=false;
   label3.Visible:=true;
   label3.Top:=label1.Height+20;
   label3.Left:=125;
   Printer.BeginDoc;
   Printer.Canvas.Refresh;
   Printer.Title:='GovzPeople.ru';
//Получаю информацию о разрешении принтера
   PointsX:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX)/70;
   PointsY:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY)/70;
//Расчитываю размеры изображения
   X1:=round((Printer.PageWidth - mesform.Panel1.Width*PointsX)/2);
   Y1:=round((Printer.PageHeight - mesform.Panel1.Height*PointsY)/2);
   X2:=round(X1+mesform.Panel1.Width*PointsX);
   Y2:=round(Y1+mesform.Panel1.Height*PointsY);
  //Вывод изображения на печать
   Printer.Canvas.CopyRect(Rect(X1,Y1,X2,Y2),mesform.Canvas,Rect(0,0,mesform.Panel1.Width,mesform.Panel1.Height));
   Printer.EndDoc;
  end;
 //Уничтожаю созданное окно печати
 toolbar1.Visible:=true;
 label3.Visible:=false;
 PrintDlg.Free;
end;

но при этом принтер выдает почему то пустой лист...а если вместо принтера выбрать MS XPS document writer то все нормально сохраняется в файл....но мне то нужно чтоб сразу на принтер выдавал,в чем тут проблема?подскажите кто знает пожалуйста

что никто не скажет?