How To Show The Print Dialog And Print Text Files

The RichEdit component in Delphi is a powerful visual control that allows you to create and display formatted text within your applications. It provides features like font styling, colors, indentation, bullet points, and even embedded images, enabling you to build rich text editors, help documents, and other applications that require visually appealing and easily formatted text. 

This code show an example of how to print a text of a RichEdit component.
 

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, ComCtrls; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    PrintDialog1: TPrintDialog; 
    RichEdit1: TRichEdit; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  If PrintDialog1.Execute then 
    richedit1.print('Ltp1'); {Ltp1 stands for printer} 
end; 

end.