Report Builder x TExtraDevice
Pessoal estou usando o report Builder na Minha aplicação e agora preciso exportar este relatorio para outro formato como Excel, Jpeg ...... ainda não sei qual vai ficar melhor, pesquisando aqui no forum verifiquei que o ExtraDevice faz esta tarefa, instalei o componente e na Palheta do report Builder ele criou um componente Chamado ExtraOptions alguém aqui do forum já utilizou este componente e poderia me auxiliar como usá-lo
Ari
Curtidas 0
Respostas
Agonzaga
30/01/2004
Ari
É só colocar o componente no formulario do relatorio e definir nas propriedades do componente do RBuilder:
- TextFileName := Caminho e nome do relatorio
- DeviceType := ´PDFFile´ // por exemplo para arquivos PDF
veja um exemplo:
procedure TfrmPaginaAta.BitBtn3Click(Sender: TObject);
var
wNomarq : string;
wData : string;
begin
wData := dateToStr(dmBDados.CadAtaSmaData.Value);
wNomarq := copy(wData,1,2) + ´-´ + copy(wData,4,2) + ´-´ + copy
(wData,7,4) + ´-´;
wNomarq := wNomarq + frmCadAta.dbcbTipSecao.Text + ´-Grau-´+
frmCadAta.dbeGrau.Text;
frmRAta := TFrmRAta.Create(application);
try
frmRAta.rbRelAta.DeviceType := ´PDFFile´;
frmRAta.rbRelAta.TextFileName :=
´C:\ALGINFORMAT\SERMACOM\ATAS\´ + wNomarq;
frmRAta.rbRelAta.PrintReport;
finally
frmRAta.Release;
frmRAta := nil;
end;
end;
É só colocar o componente no formulario do relatorio e definir nas propriedades do componente do RBuilder:
- TextFileName := Caminho e nome do relatorio
- DeviceType := ´PDFFile´ // por exemplo para arquivos PDF
veja um exemplo:
procedure TfrmPaginaAta.BitBtn3Click(Sender: TObject);
var
wNomarq : string;
wData : string;
begin
wData := dateToStr(dmBDados.CadAtaSmaData.Value);
wNomarq := copy(wData,1,2) + ´-´ + copy(wData,4,2) + ´-´ + copy
(wData,7,4) + ´-´;
wNomarq := wNomarq + frmCadAta.dbcbTipSecao.Text + ´-Grau-´+
frmCadAta.dbeGrau.Text;
frmRAta := TFrmRAta.Create(application);
try
frmRAta.rbRelAta.DeviceType := ´PDFFile´;
frmRAta.rbRelAta.TextFileName :=
´C:\ALGINFORMAT\SERMACOM\ATAS\´ + wNomarq;
frmRAta.rbRelAta.PrintReport;
finally
frmRAta.Release;
frmRAta := nil;
end;
end;
GOSTEI 0
Ant.carlos/sp
30/01/2004
Olá!
:D Caros amigos.
Alguem poderia me dizer onde posso encontrar este componente
ExtraDevice p/ D7 + Report Builder 7.0
Pois já pesquisei em varios Site, + vi pouca materia sobre o mesmo.
Desde já meus agradecimentos.
ANT.CARLOS/SP
:D Caros amigos.
Alguem poderia me dizer onde posso encontrar este componente
ExtraDevice p/ D7 + Report Builder 7.0
Pois já pesquisei em varios Site, + vi pouca materia sobre o mesmo.
Desde já meus agradecimentos.
ANT.CARLOS/SP
GOSTEI 0
Massuda
30/01/2004
O site oficial do TExtraDevices é http://www.waler.com/.
GOSTEI 0