打印Memo的文本信息

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