salvar arquivo pdf

Delphi

31/08/2013

tenho um sisteminha sem banco de dados de contagem de tempo de serviço e quando eu clico no botão salvar em pdf, já vai uma copia direto para uma pasta chamada ''Contagem de TS'', potém eu gostaria de escolher o local onde eu desejo salvar este arquivo pdf, alguém pode me dar uma ajuda?

O codigo do Botão é:

procedure TForm1.BtnPdfClick(Sender: TObject);
begin
FrmRel.QRLNome.Caption := Form1.Edit2.Text;
FrmRel.QRLT_E_S.Caption := Form1.Edit1.Text;
FrmRel.QRLT_S_A.Caption := Form1.Edit5.Text;
FrmRel.QRLT_S_T.Caption := Form1.Edit6.Text;
FrmRel.QRLD_Inclusao.Caption := datetostr(Form1.DateTimePicker1.Date);

Form3.ShowModal;

FrmRel.QuickRep1.ExportToFilter(TQRPDFDocumentFilter.Create(''C:\Contagem de TS\Contagem TS.pdf''));

Edit2.SetFocus;


end;
Paulo

Paulo

Curtidas 0

Respostas

Marcos Oliveira

Marcos Oliveira

31/08/2013

Olá amigo.

Utilize um SaveDialog para selecionar onde o arquivo será Salvo.

Ficaria mais ou menos assim:

(...)
Form3.ShowModal;

if SaveDialog1.Execute then
    FrmRel.QuickRep1.ExportToFilter(TQRPDFDocumentFilter.Create(SaveDialog1.FileName));

Edit2.SetFocus;


Espero ter ajudado.
GOSTEI 0
POSTAR