Hayırlı Bayramlar.

PaintBoxda bulunan görselin çıktısını printer almak istiyorum ilk denememde boş bir dosya çıktı sonraki denemelerimde ise prınter herhangi bir vermedi.
Paintboxda bulunan görselin çıktısını nasıl alabilirim?

procedure TForm3.PaintBoxClick(Sender: TObject);
var
  Rate: Real;
  Rec: TRect;
begin
  With PrintDialogs, PaintBox do
  begin
    if Execute then
    begin
      Rate := Printer.PageWidth / Width;
      Printer.BeginDoc;
      Rec := Rect(0, 0, Round(Width * Rate), Round(Height * Rate));
      Printer.Canvas.CopyRect(Rec, Canvas, Canvas.ClipRect);
      Printer.EndDoc;
    end
  end;
end;