Ver Mensaje Individual
  #8  
Antiguo 28-11-2006
cocke cocke is offline
Miembro
 
Registrado: nov 2006
Posts: 14
Reputación: 0
cocke Va por buen camino
Thumbs up TPrinter

Hola a todos..
Despues de leerlos atte, corregi todo lo aconsejado y aun no funcionaba..
Pueden creer que el error estaba dentro del if,habia olvidado la diferencia entre un = y un ==
Gracias por todo..
Estuve leyendo acerca de TPrinter, ya que necesito imprimir el formulario, y encontre lo siguiente
TPrinter Prntr = Printer();
TRect r = Rect(200,200,Prntr->PageWidth – 200,Prntr->PageHeight – 200);
Prntr->BeginDoc();
Prntr->Canvas->TextRect(r, 200, 200, Memo1->Lines->Text);
Prntr->EndDoc();
Pero creo que esta imprimiendo un cuadrado?
Se supone que para imprimir le formulario primero debo capturar el mapa de bits del formulario, y nose como hacerlo

Me podrian ayudar a imprimir el formulario??
Gracias nuevamente

Saludos!!
Responder Con Cita