Fórum Converter Relatório Report Builder para PDF! #287151

Tambem gostaria de saber, pois fui obrigado a mudar para o fortes report. Utilizo o Report Builder a 4 anos mas tive que mudar pois não encontrava solução para transformar em pdf para enviar por e-mail um relatório. Foi quando resolvi testar o Fortes Report que me atendeu plenamente.

Com o [b:fae386b7e9]PDF Creator[/b:fae386b7e9] (Free) é possível criar um PDF a partir de qualquer documento. Ele cria uma Impressora Virtual no seu sistema, que quando usada, cria um arquivo PDF

http://sourceforge.net/projects/pdfcreator/

Existe um componente que é utilizado com o Report Builder, o ExtraDevice, com ele pode-se exportar o relatório para diversos formatos diferentes.

Dercide.

Primeiro passo vc tem que ter a versão 9.1 do Rbulider, depois e colocar
uns compomente de relatorio ppReport1 e depois informar esse código.

// const do tipo de arquivo
const
cFileExtension = ´pdf´;
cFileFilter = ´Adobe Acrobat file (*.pdf)|*.pdf´;

// no click de um botao informar isso
procedure TFormPedidos.BtExportaPDFClick(Sender: TObject);
var
lPDFDevice: TppPDFDevice;
lSaveDlg: TSaveDialog;
begin
RtlPedido.AllowPrintToFile := True;
RtlPedido.DeviceType := ´PDF´;

if FileExists(RtlPedido.TextFileName) then
DeleteFile(RtlPedido.TextFileName);

lPDFDevice := TppPDFDevice.Create(nil);

if (FOutputStream = nil) then
FOutputStream := TMemoryStream.Create
else
FOutputStream.Clear;
try
lPDFDevice.PDFSettings := RtlPedido.PDFSettings;
lPDFDevice.OutputStream := FOutputStream;
lPDFDevice.Publisher := RtlPedido.Publisher;
RtlPedido.PrintToDevices;
finally
lPDFDevice.Free;
end;

if FileExists(RtlPedido.TextFileName) then
DeleteFile(RtlPedido.TextFileName);

if (FOutputStream = nil) or (FOutputStream.Size = 0) then begin
ShowMessage(´É Mescessário Gerar o Arquivo Primeiro´);
Exit;
end;

lSaveDlg := TSaveDialog.Create(Application);
lSaveDlg.DefaultExt := cFileExtension;
lSaveDlg.Filter := cFileFilter;
lSaveDlg.Options := [ofOverWritePrompt, ofPathMustExist, ofHideReadOnly];
lSaveDlg.FileName := RtlPedido.TextFileName;
try

if lSaveDlg.Execute then begin
RtlPedido.TextFileName := lSaveDlg.FileName;
FOutputStream.SaveToFile(lSaveDlg.FileName);
Caminho_Pedido := (lSaveDlg.FileName);
end;
finally
lSaveDlg.Free;
end;
end;

Ola Colega,

Existe um componente chamado TExtraDevice que lhe permite exportar seus relatório do ReportBuilder para diversos tipos de arquivos, inclusive PDF, infelizmente não vou saber lhe informar o link do fabricante, mas um dos caminhos é este ai mesmo.

[]s

Em uma versão anterior a 9 do report builder eu estava utilizando o TExtraDevice.

Mas como disseram acima nessa versão 9.1 já contém essa opção de exportar para PDF.

Gostaria de saber se só tem nessa opção, pois meu sistema tem q propiciar exportar para PDF, RTF, XLS, TXT e Outros.

Caso não tenha esta opção nessa versão, se alguém souber o link do TExtraDevice que seja compatível com a versão 9 do report builder, por favor poste aqui.

Amigos,

façam o seguinte na versão 10 para cima:

{Caso queira exportar para pdf}
componenteppReport.DeviceType := ´PDF´;

ou

{Caso queira exportar para TXT}
componenteppReport.DeviceType := ´ReportTextFile´;

+ o código abaixo:

componenteppReport.PrintToDevices;
componenteppReport.PrintReport;

Espero ter ajudado

http://www.gnostice.com/nl_article.asp?id=243&t=Export_From_ReportBuilder_To_PDF_And_Other_Formats
solucao para quem ainda nao sabe como imprimir em arquivo a partir do preview

Amigos a versão 15.3 do Report Builder atende tudo que você citou e ainda mais, na verdade as outras versões (que não lembro agora) que chegam perto da versão 15 também atendem. Configure as propriedades do ppReport AllowprintToFile (true) DefaultFileDeviceType e deviceType para (pdf, doc, xls, gif, bmp) etc. Pelas propriedades que vi no ppReport acho que você pode até enviar o arquivo no formato escolhido direto por email para o cliente (mas essa função ainda não explorei). Também já usei o ExtraDevice mas isso é coisa do passado.

Espero que tenha ajudado.

Bons códigos.