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