PrintingSystem - Express Developer PrintingSystem varias configuracoes via codigo para o dxComponentPrinter

// todos os esquemas para imprimir um cxGrid via Developer Express PrintingSystem 

procedure TForm1.ImprimirClick;

begin

  // ATENCAO, antes de imprimir é necessário abrir o dsComponentPrinter com um duplo-clique e colocar

  // um subcomponente do tipo dxGridReportLink aqui abaixo ele será chamado de DPrnLink:

  DPrnLink.Component                         := Grid;  // liga com grid

  DPrnLink.OptionsFormatting.UseNativeStyles := True;  // só preto-branco

  DPrnLink.OptionsSize.AutoWidth             := True;  // ajusta à pagina

  DPrnLink.PrinterPage.MeasurementUnits      := muMillimeters; // em milimetro (cada 1000 - 1milimetro)

  // configura visualização

  with TdxGridReportLink(DPrnLink) do

  begin

    // no relatório

    OptionsView.Caption          := False;

    OptionsView.Headers          := True;

    OptionsView.Footers          := True;

    OptionsView.GroupFooters     := True;

    OptionsView.ExpandButtons    := True;

    OptionsView.FilterBar        := True;

    // em todas as páginas:

    OptionsOnEveryPage.Caption   := True;

    OptionsOnEveryPage.Headers   := True;

    OptionsOnEveryPage.Footers   := False;

    OptionsOnEveryPage.FilterBar := False;

  end;

  // define tamanho da linha NA GRID

  Dados.OptionsView.DataRowHeight := 15;

  // cabeçalho

  with DPrnLink.PrinterPage.PageHeader do

  begin

    LeftTitle.add('Market Automações Ltda');

    LeftTitle.add('Listagem de bananas maduras na beira da estrada, ou tá bichada zé, ou tem marinbondo no pé');

    RightTitle.add('[User Name] - [Data & Time Printed] - Página[Página # de #]');

    LeftTextAlignY  := taTop;

    RightTextAlignY := taTop;

    Font.Name       := 'Times New Roman';

    Font.Size       := 10;

  end;

  // rodapé de página

  with DPrnLink.PrinterPage.PageFooter do

  begin

    RightTitle.add('Market Automações Ltda - www.market.com.br - Fone: (48) 436-1112 - Sistema ADM versão 1.00');

    RightTextAlignY := taTop;

    Font.Name       := 'Times New Roman';

    Font.Size       := 6;

  end;

  // margens e papel

  DPrnLink.PrinterPage.Margins.Left   := 7000;

  DPrnLink.PrinterPage.Margins.Right  := 5000;

  DPrnLink.PrinterPage.Margins.Bottom := 10300;

  DPrnLink.PrinterPage.Margins.Top    := 14800;

  DPrnLink.PrinterPage.DMPaper        := DMPAPER_A4;

  // titulo do relatório

  DPrn.PrintTitle := 'impressão de xispita';

  // preview

  DPrn.Preview;

  // volta tamanho normal

  Dados.OptionsView.DataRowHeight := 0;

end;