Impressão PrinterSetupDialog1

Delphi

20/07/2017

td certo galera?
estou usando o componente PrinterSetupDialog1 para imprimir um relatório que está imprimindo cada variável em uma pagina separada, eu queria ajuda de vcs para imprimir tudo na msm pag.
Segue o código:

procedure TRelatorio.btnImprimirClick(Sender: TObject);
begin
  if PrinterSetupDialog1.Execute then
  begin
    RichEdit1.Print(RichEdit1.Text);
    RichEdit2.Print(RichEdit2.Text);
    RichEdit3.Print(RichEdit3.Text);
    Grafico1.Print;
  end;
end;


Obrigado.
Denilson

Denilson

Curtidas 0

Respostas

Denilson

Denilson

20/07/2017

[Resolvido!!]
Fiz da seguinte forma:
procedure TRelatorio.btnImprimirClick(Sender: TObject);
var Meta: TMetafile;
begin
  Meta:=Grafico1.TeeCreateMetafile(True,Rect(0,0,1150,1150));

  if PrinterSetupDialog1.Execute then
  begin
    printer.Title:= 'Relatório de Formação';
    printer.BeginDoc;
    try
      printer.Canvas.TextOut(70, 100, RichEdit1.Text+'      '+RichEdit2.Text+'      '+RichEdit3.Text+'      '+RichEdit4.Text);
      Printer.Canvas.StretchDraw(Rect(40,300,7000,4500),Meta);
    finally
      printer.EndDoc;
    end;
  end;
end;
GOSTEI 0
POSTAR