Impress�o PrinterSetupDialog1

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

Curtir t�pico + 0

Responder

Posts

20/07/2017

Denilson

[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;

Responder

Gostei + 0