Impressão no RICHEDIT
Pessoal !!!!
Como faço imprimir um conteúdo no RICHEDIT ?? Vale lembrar que o conteúdo não foi salvo...
Rogério
Como faço imprimir um conteúdo no RICHEDIT ?? Vale lembrar que o conteúdo não foi salvo...
Rogério
Rogeranalista
Curtidas 0
Respostas
Dbergkamps
21/02/2004
coloque as variaveis e um printdialogbox1.
var
PrintFile: TextFile;
i: Integer;
begin
if PrintDialog.execute then
begin
Assigprn(PrintFile);
ReWrite(PrintFile);
Printer.Canvas.Font:=RichEdit1.Font;
For I:= to RichEdit1.Lines Count -1 do
Writeln(PrintFile, RichEdit1.Lines[I]);
System.CloseFile(PrintFile);
end;
end;
// nao se esquece de declarar printers na clausula uses.
teste e me diga se deu certo...
valeu...
var
PrintFile: TextFile;
i: Integer;
begin
if PrintDialog.execute then
begin
Assigprn(PrintFile);
ReWrite(PrintFile);
Printer.Canvas.Font:=RichEdit1.Font;
For I:= to RichEdit1.Lines Count -1 do
Writeln(PrintFile, RichEdit1.Lines[I]);
System.CloseFile(PrintFile);
end;
end;
// nao se esquece de declarar printers na clausula uses.
teste e me diga se deu certo...
valeu...
GOSTEI 0