Export From DevExpress ExpressPrinting System To PDF And Other Formats

// Populate the grid
procedure TForm1.Button1Click(Sender: TObject);
begin
  With StringGrid1 do begin
    Cells[1,1] := '1, 1';
    Cells[2,2] := '2, 2';
    Cells[3,3] := '3, 3';
  end;
end;

// Print the grid content using ExpressPrinting System
// and export the print output to PDF and RTF using
// eDocEngine
procedure TForm1.Button2Click(Sender: TObject);
var
  BasedxReportLink1: TBasedxReportLink;
begin
  // Connect the export interface components with
  // engine components
  gtXPressPrntInterface1.Engine := gtPDFEngine1;
  gtXPressPrntInterface2.Engine := gtRTFEngine1;

  // Specify the file names for PDF and RTF output
  gtPDFEngine1.FileName := 'eDoc_DevExpress_Demo.pdf';
  gtRTFEngine1.FileName := 'eDoc_DevExpress_Demo.rtf';

  // Disable engine dialogs
  gtPDFEngine1.Preferences.ShowSetupDialog := false;
  gtRTFEngine1.Preferences.ShowSetupDialog := false;

  // Specify controls whose contents need to be printed
  BasedxReportLink1 := dxComponentPrinter1.AddLink(StringGrid1);

  // Export print output to PDF and RTF
  gtXPressPrntInterface1.RenderDocument(dxComponentPrinter1, BasedxReportLink1);
  gtXPressPrntInterface2.RenderDocument(dxComponentPrinter1, BasedxReportLink1);
end;