Foros Club Delphi - Boton para imprimir tmemo

Página 1 de 2

Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Boton para imprimir tmemo (https://www.clubdelphi.com/foros/showthread.php?t=71861)

JorgeDiaz

14-01-2011 19:45:58

Boton para imprimir tmemo

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

ecfisa

14-01-2011 20:14:07

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

14-01-2011 20:19:52

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

Casimiro Noteví

14-01-2011 20:23:26

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

memo1.print('');

Se acabó.

ecfisa

14-01-2011 20:31:07

Cita:

Empezado por Caral (Mensaje 387606)

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

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

Un saludo.

ecfisa

14-01-2011 20:35:00

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

14-01-2011 20:38:15

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

JorgeDiaz

14-01-2011 20:39:38

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

ecfisa

14-01-2011 20:45:03

Hola de nuevo.

La sentencia

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

definitivamente no funciona.

Un saludo.

JorgeDiaz

14-01-2011 20:55:10

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

14-01-2011 21:01:52

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 Noteví

14-01-2011 21:09:36

Cita:

Empezado por ecfisa (Mensaje 387612)

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

14-01-2011 21:12:34

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

14-01-2011 21:17:19

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

14-01-2011 21:26:35

Cita:

Empezado por Casimiro Notevi (Mensaje 387617)

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

14-01-2011 21:28:01

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

14-01-2011 21:36:37

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

14-01-2011 21:40:29

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

Caral

14-01-2011 21:43:44

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

14-01-2011 21:49:43

Cita:

Empezado por Caral (Mensaje 387627)

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.

La franja horaria es GMT +2. Ahora son las 17:56:32.

Página 1 de 2

Mostrar 40 mensajes desde este tema en una página