Essa dica não está funcionando, no Report Builder!
Peguei essa dica no site planeta Delphi, ela se encaixa exatamente no meu sistema, só que a mesma não esta funcionado.
Passos:
- Abra o contrutor de relatórios Report Builder;
- Adicione um componente Image no seu relatório;
- Pressione F11 para visualizar o Object Inspector;
- Dê um duplo clique no evento OnPrint;
- Será criada uma procedure conforme abaixo, sendo que em cada registro que for impresso na banda, será realizado o código dessa procedure.
No exemplo abaixo trabalho com a impressão de crachás, sendo que busco a foto de cada funcionário na pasta Fotos, onde cada Foto tem o nome conforme o código do funcionário.
Exemplo: Funcionário com Código: 350 = C:SistemaFotos350.jpg
procedure TForm1.ppImagePrint(Sender: TObject);
var Caminho: String;
begin
Caminho:='C:SistemaFotos';
Caminho:=Caminho+IBQuery1.FieldByName('Codigo').AsString+'.jpg';
If FileExists(Caminho)=true
Then ppImage1.Picture.LoadFromFile(Caminho)
Else ppImage1.Picture:=nil;
end; O MEU CÓDIGO ESTÁ ASSIM: procedure TFrmRelRequerMatricula.ppImage2Print(Sender: TObject);
var Caminho: String;
begin
Caminho:='C:GE\Dados\Fotos';
Caminho:=Caminho+IBQryAluno.FieldByName('MATRICULA').AsString+'.jpg';
If FileExists(Caminho) = true Then
ppImage2.Picture.LoadFromFile(Caminho)
Else ppImage2.Picture:=nil; end;
end. Quando debugo na entra na linha: ppImage2.Picture.LoadFromFile(Caminho) Osmar.
- Abra o contrutor de relatórios Report Builder;
- Adicione um componente Image no seu relatório;
- Pressione F11 para visualizar o Object Inspector;
- Dê um duplo clique no evento OnPrint;
- Será criada uma procedure conforme abaixo, sendo que em cada registro que for impresso na banda, será realizado o código dessa procedure.
No exemplo abaixo trabalho com a impressão de crachás, sendo que busco a foto de cada funcionário na pasta Fotos, onde cada Foto tem o nome conforme o código do funcionário.
Exemplo: Funcionário com Código: 350 = C:SistemaFotos350.jpg
procedure TForm1.ppImagePrint(Sender: TObject);
var Caminho: String;
begin
Caminho:='C:SistemaFotos';
Caminho:=Caminho+IBQuery1.FieldByName('Codigo').AsString+'.jpg';
If FileExists(Caminho)=true
Then ppImage1.Picture.LoadFromFile(Caminho)
Else ppImage1.Picture:=nil;
end; O MEU CÓDIGO ESTÁ ASSIM: procedure TFrmRelRequerMatricula.ppImage2Print(Sender: TObject);
var Caminho: String;
begin
Caminho:='C:GE\Dados\Fotos';
Caminho:=Caminho+IBQryAluno.FieldByName('MATRICULA').AsString+'.jpg';
If FileExists(Caminho) = true Then
ppImage2.Picture.LoadFromFile(Caminho)
Else ppImage2.Picture:=nil; end;
end. Quando debugo na entra na linha: ppImage2.Picture.LoadFromFile(Caminho) Osmar.
Osmar
Curtidas 0