Ver Mensaje Individual
  #2  
Antiguo 08-09-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Échale un vistazo a la clase TPrinter y a la propiedad Canvas que permite acceder al canvas directamente.
Haz un par de pruebas simples para ver si por ese camino tienes salida.
Un ejemplo que puedes encontrar en Delphi es el siguiente:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 
 begin
   with Printer do
   begin
     BeginDoc;
     Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                     200, 200, Memo1.Lines.Text);
     EndDoc;
   end;
 end;

Puedes hacer pruebas con TextOut y TextRect de TCanvas para pintar texto en una posición determinada.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita