Boton para imprimir tmemo

[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

[ecfisa]

Hola Jorge.

Me dá la impresión de que tenés puesto un Break en esa línea ( un círculo rojo sobre el márgen del editor ).

Si es así hacé click sobre él, desaparecerá y continuará la ejecución del programa.

Saludos.

[JorgeDiaz]

Sera acaso que la version que tengo esta en ingles? digo por lo de "Imprimir" en el codigo que pongo.

y no la verdad no encuentro eso del break que me dices.

[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 Casimiro Notevi

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

Bueno, a mí me fué bastante útil, ahora no volveré a intentar ese cast...

Un saludo.

[JorgeDiaz]

Bueno baje el zip, descomprimi, me mando un archivo que se llama PrintMemo, sin extension y el icono de ese archivo es la venta de windows, como cuando no tienes el programa instalado, le doy doble click sobre el y me manda a la ventana que pregunta " con que programa deseo abrirlo"

Ahora le puse extension .pas y al darle doble click lo abre con delphi pero me lo habre en donde pones los codigos y en lugar de codigos se ven puros cuadros, una q otra letra, nose si sea por la version.

[ecfisa]

Hola.

Por lo que comentas el problema debe estar en la versión de WinZip. Te adjunto otro zip pero sin comprimir para ver si así podés abrirlo.

Un saludo