imprimir memo

[periklesvcl]

como puedo imprimir el texto que aparece en un memo???????

agradeceria mucho que me respondieran

jejeje


gracias!

[jmariano]

Te sugiero que revises la ayuda sobre el objeto TPrinter (localizado en la unidad Printers.pas). De todas formas, te dejo un ejemplo extraído de la ayuda en donde, precisamente, se imprime un Memo.


procedure TForm1.Button1Click(Sender: TObject);
var
r: TRect;
i: Integer;
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
Canvas.Brush.Style := bsClear;
for i := 0 to Memo1.Lines.Count do
Canvas.TextOut(200,200 + (i *
Canvas.TextHeight(Memo1.Lines.Strings[i])),
Memo1.Lines.Strings[i]);

Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;
end;


Saludos!

[jorgegetafe]

Se necesita algun uses?

Con el código de arriba, me dice que no está definido: ni printer, ni pagewidth, ni pageheeight, ni begindoc.

En la linea que pone EndDoc; dice que faltan parametros...

:confused:

[erickahr]

Si debes colocar el Uses Printers de lo contrario no jala
Saludos!!!