Cita:
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.