打印Memo的文本信息

TPrinter * pPrinter=Printer();
pPrinter->Title="打印Memo1中的数据";
pPrinter->BeginDoc();
int y=10;
for(int i=0;i<Memo1->Lines->Count;i++)
  {
  pPrinter->Canvas->TextOut(10,y,Memo1->Lines->Strings[i]);
  y+=pPrinter->Canvas->TextHeight("A");
  }
pPrinter->EndDoc();