Memotext formatiert auf einem Drucker ausgeben

# include "printers.h"

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TPrinter Prntr = Printer();
    TRect r = Rect(200,200,Prntr->PageWidth – 200,Prntr->PageHeight – 200);
    Prntr->BeginDoc();
    Prntr->Canvas->TextRect(r, 200, 200, Memo1->Lines->Text);
    Prntr->EndDoc();
}