Como imprimir el texto introducido en un memo

[kurono]

hola amigos del foro tengo un problema me gustaria imprimir en una hoja el texto que tengo en un memo si alguien sabe como hacerlo se lo agradeceria

[BlueSteel]

Hola kurono

te sugiero que leas la guia de estilo http://www.clubdelphi.com/foros/guiaestilo.php

ya que tu pregunta le falta complementar con:

En que delphi ? a través de que Reporteador ? (QReport / Rave / directo desde delphi / otro)

El dato lo tienes almacenado, o lo quieres imprimir en forma directa ??

[kurono]

disculpa es en delphi 7 y es directo desde delphi

[roman]

Si buscas en la ayuda de TPrinter|Using TPrinter, verás un ejemplo muy parecido a éste:


var
J: Integer;

begin
Printer.BeginDoc;
Printer.Canvas.Font := Memo1.Font;

for J := 0 to Memo1.Lines.Count - 1 do
Printer.Canvas.TextOut(
MARGIN_LEFT,
MARGIN_TOP + J*Printer.Canvas.TextHeight(Memo1.Lines[J]),
Memo1.Lines[J]
);

Printer.EndDoc;
end;


que imprime el contenido del memo con los márgenes dados y con la fuente que tenga el memo.

// Saludos

[kurono]

ok gracia roman