RichEdit drucken

[gangs-taas]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  printDialog : TPrintDialog;
  myPrinter   : TPrinter;
  i, y : integer ;
  h: THandle;


begin
  // Create a printer selection dialog
  printDialog := TPrintDialog.Create(Form1);

  // If the user has selected a printer (or default), then print!
  if printDialog.Execute then
  begin
    myPrinter := Printer;
    with myPrinter do
    begin
      h := RichEdit1.Handle;
      Printer.BeginDoc;
      PrintRichEditIntoRect(h, Rect(25, 20, 25, 20), -PageRect_MM);
      Printer.EndDoc;
    end;
  end;
end;

das hier ist mein code
da ist das doch drin ...
wenn ich auf den button drucken klick soll der drucken ...

oder seh ich das falsch ?