Ver Mensaje Individual
  #15  
Antiguo 14-01-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por Casimiro Notevi Ver Mensaje
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 14-01-2011 a las 21:30:25.
Responder Con Cita