Boton para imprimir tmemo

[JorgeDiaz]

Buenos dias, quisiera saber como poner un boton para que al darle click, poder imprimir mi TMemo, garcias.

[ecfisa]

Hola Jorge.

Poner un botón y asignar evento OnClick: Desde la paleta de componentes pone un TButton en el Form. Seleccionado el TButton,
hacé click sobre la pestaña events, doble click sobre el evento OnClick.

Imprimir: Existe más de una forma hacerlo, ya sea que uses algún Report, o mediante la unit Printers.

Te pongo un ejemplo de como imprimir del último modo:

Código Delphi [-]
...
uses Printers;

procedure Imprimir(TS : TStrings) ;
var
  i: Integer;
  Linea: Integer;
begin
  Linea := 0 ;
  Printer.BeginDoc;
  for i := 0 to TS.Count - 1 do
  begin
    Printer.Canvas.TextOut(0, Linea, TS[i]);
    Linea := Linea + Abs(Printer.Canvas.Font.Height);
    if (Linea >= Printer.PageHeight) then
      Printer.NewPage;
  end;
  Printer.EndDoc;
end;

Llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Imprimir(Memo1.Lines);
end;

Saludos.

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

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

memo1.print('');

Se acabó.

[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.

[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.

[Casimiro Notevi]

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('');

[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.

[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.

[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.

[ecfisa]

Hola Jorge.

No, no tiene nada que ver el nombre del procedimiento; puede ser el que gustes.

Te pongo el código completo que usé para la prueba ( funciona bién ), a ver si te sirve:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls, ComCtrls, Dialogs;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(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 Imprimir(TS : TStrings);
var
  i: Integer;
  Linea: Integer;
begin
  Linea := 0 ;
  Printer.BeginDoc;
  for i := 0 to TS.Count - 1 do
  begin
    Printer.Canvas.TextOut(0, Linea, TS[i]);
    Linea := Linea + Abs(Printer.Canvas.Font.Height);
    if (Linea >= Printer.PageHeight) then
      Printer.NewPage;
  end;
  Printer.EndDoc;
end;

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

end.

Nota: Si lees la guia de estilo verás que dice: "No solicites que te respondan por correo en privado".

Uno: Las respuestas en privado no sirven a otros compañeros.
Dos: Te van a llenar de spam.

Un saludo.

[JorgeDiaz]

Todo este codigo en donde lo tengo que inserta, disculpa mi ignorancia.

[[Caral]]

Hola
Ahora pregunto:
Este codigo funciona pero imprime directamente, osea se necesita tener conectada la impresora etc.?
Lo digo por que a mi se me traba, no hace nada, eso si, no tengo la impresora conectada.
Saludos

[ecfisa]

Empezado por Caral

Hola
Ahora pregunto:
Este codigo funciona pero imprime directamente, osea se necesita tener conectada la impresora etc.?
Lo digo por que a mi se me traba, no hace nada, eso si, no tengo la impresora conectada.
Saludos

Si así es.
Era sólo un ejemplo, habría que agregar las comprobaciones necesarias para detectar la impresora.

Indudablemente le sería más simple utilizar el ejemplo de QReport que adjuntaste.

Un saludo.