MensajePublicado: Lun 22 Jul, 2002 9:52 am    Asunto: Como Imprimir el Contenido de un TMemo Responder citando
// Esta es la forma de hacerlo.

TPrinter *MyPrinter = Printer();
MyPrinter->BeginDoc();
TRect r = Rect(200,200,MyPrinter->PageWidth - 200,MyPrinter->PageHeight- 200);
MyPrinter->Canvas->Brush->Color = clWhite;
for( int i = 0; i < Memo1->Lines->Count; i++)
MyPrinter->Canvas->TextOut(200,200 + (i *
MyPrinter->Canvas->TextHeight(Memo1->Lines->Strings[i])),
Memo1->Lines->Strings[i]);
MyPrinter->Canvas->Brush->Color = clBlack;
MyPrinter->Canvas->FrameRect(r);
MyPrinter->EndDoc();
MyPrinter=NULL;


// Indicar que he puesto que se imprima tambien un rectagunlo alrededor del folio
pero que no es necesario para imprimir el TMemo.

Saludos
_Willa