Rich edit print command

[sanjna000]

Hi,
I need to print the contents of the rich edit control when clicking the relevant tool button. The code i used is as follows:

If PrintDlg.Execute Then
RE_Viewer.Print(RE_Viewer.Lines.Text);

I tried to print the contents of the rich edit control by clicking the tool button. But it does not seem to be working. Does any one know how to give the print command.
Thank you so much for u r help in advance.

Sanjna...

 

[ChrisGSchultz]

G'day Sanjna!
Do you have a tool/button with a print dialog attached?

If so, then it looks like what your doing wrong is loading the text into the caption for the job!
Try this (from the help in Delphi, put a button on the form to print your richedit)...
[tt]
procedure TForm1.FormCreate(Sender: TObject);
const
// The path may need to be changed to accommodate locations of files
// on your system.
Path = '..\DEMOS\RICHEDIT\OVERVIEW.RTF';
begin
RichEdit1.Lines.LoadFromFile(Path);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
// The parameter string shows in the print queue under "Document // name".
RichEdit1.Print('My Document Name');
end;
[/tt]

Cheers


Chris ;-)

 

[sanjna000]

Hi Chris,

Thank you so much for u r help. It worked perfectly well.
Thanks again

Sanjna...