Alvaro Acosta Cruz Cdt

Registrado: 14 Oct 2003Mensajes: 5Ubicación: Chile
|
Publicado: Vie 17 Oct, 2003 7:35 pm Asunto: imprimir en un RichEdit |
|
|
Estoy imprimiendo con este codigo:
TPrinter *MyPrinter = Printer();
TRect r = Rect(200,200,MyPrinter->PageWidth - 200,MyPrinter->PageHeight- 200);
MyPrinter->BeginDoc();
MyPrinter->Canvas->Brush->Color = clWhite;
for( int i = 0; i < RichEdit1->Lines->Count; i++)
MyPrinter->Canvas->TextOut(200,200 + (i *
MyPrinter->Canvas->TextHeight(RichEdit1->Lines->Strings[i])),
RichEdit1->Lines->Strings[i]);
MyPrinter->Canvas->Brush->Color = clBlack;
MyPrinter->EndDoc();
MyPrinter=NULL;
El Problema es que la impresion me sale en la parte superior izquierda de la pagina y no en toda ella
que estare haciendo mal y como lo soluciono
Saludos ARAC++ |
|