Проблема с печатью Опции

[priboltik]

Уважаемые форумчане, помогите решить проблему:
как я понял из DRKB для печати из Paintbox используется следующий подход:

procedure TMainWindow.Button5Click(Sender: TObject);
var
printer:tprinter;
begin
   if not PrintDialog1.Execute then exit;
Printer := TPrinter.Create;
Printer.BeginDoc;
printer.Canvas.CopyRect(Bounds(0,0,PaintBox2.Width,PaintBox2.Height),PaintBox2.Canvas,Bounds
(0,0,PaintBox2.Width,PaintBox2.Height));
Printer.EndDoc;
end;

принтер должен печатать содержимое paintbox, однако не печатает НИЧЕГО!!
в чем проблема, объясните...