打印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();