Boton para imprimir tmemo

[[Caral]]

Hola
Bueno, aparte de lo dicho por el Maestro ecfisa:
Para poner un boton se tiene que hacer con mucho cuidado.
Aqui pongo un ejemplito con QReport.
Saludos

[Casimiro Noteví]

Creo recordar que también puedes poner el botón y al pulsarlo:

memo1.print('');

Se acabó.

[JorgeDiaz]

Gracias por las respuestas, tratare de hacerlo haber si me sale, ya que soy nuevo en esto, comentare despues, gracias.

[ecfisa]

Hola de nuevo.

La sentencia

Código Delphi [-]
TRichEdit(Memo1).Print('');

definitivamente no funciona.

Un saludo.

[JorgeDiaz]

Bueno puse un Tbutton en el form y puse esto

procedure TForm1.Button1Click(Sender: TObject);
begin
Imprimir(Memo1.Lines);
end;

Pero cuando le doy Run, no me manda el fom, me mande de nuevo a lo que escribi peroesta linea en rojo

Imprimir(Memo1.Lines);

Estoy haciendo algo mal?

[ecfisa]

Hola.

Si pusiste el TButton con su evento asignado, el TMemo con algún contenido y el procedimiento 'Imprimir', tendría que funcionar.

¿ Te arroja algún error ?

Saludos.

[JorgeDiaz]

Esto es lo que hice, inicie un nuevo proyecto, inserte un Tmemo, despues inserte un TButton, hize doble click en el TButton y me mando a la ventana con esto

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

despues agregue lo que me mencionaron, Imprimir(Memo1.Lines);
y me quedo asi

procedure TForm1.Button1Click(Sender: TObject);
begin
Imprimir(Memo1.Lines);
end;

Y al darle Run me hace lo que mencione antes la linea en donde esta ¨"Imprimir(Memo1.Lines);" esta en color rojo

[Casimiro Noteví]

Empezado por ecfisa

Hola de nuevo.
La sentencia
Código Delphi [-]TRichEdit(Memo1).Print('');


definitivamente no funciona.

Un saludo.

Añade ComCtrls al uses y prueba:

Código Delphi [-]
TRichEdit(mm1).Print('');

[ecfisa]

Empezado por Casimiro Notevi

Añade ComCtrls al uses y prueba:

Código Delphi [-]
TRichEdit(mm1).Print('');

Hola Casimiro.

Este es el código que usé para la prueba:

Código Delphi [-]
...
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls, ComCtrls, Dialogs;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

uses Printers;

procedure TForm1.FormShow(Sender: TObject);
begin
   Memo1.Lines.LoadFromFile('C:\PRUEBA.TXT');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TRichEdit(Memo1).Print('');
end;
...

Me dá violación de acceso, no sé que pueda estar fallando (o faltando)...

¿ Le haces algúna conversión previa ?

Un saludo.

[Casimiro Noteví]

Empezado por ecfisa

[..] Me dá violación de acceso, no sé que pueda estar fallando (o faltando)... [..]

Te digo lo que está fallando: yo.
Había puesto un trichedit en lugar de un tmemo

[ecfisa]

Empezado por Caral

Hola
Para poner un boton se tiene que hacer con mucho cuidado.

Una afirmación que difícilmente se pueda superar...

Un saludo.

[ecfisa]

Hola Casimiro.

También fué lo primero que pensé, pero esa propiedad aparentemente la tiene el RichEdit pero no el Memo.

Habría que probar si funciona:

Código Delphi [-]
TRichEdit(Memo1).Print('');

Luego te comento.

Un saludo.

[[Caral]]

Hola
Ya decia yo que eso no me lo habian enseñado...
Saludos amigos.