打印Memo的文本信息

打印Memo的文本信息2008-01-05

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（）;