|
|
Postada em 05/07/2005 10:45 hs
Prezados Senhores,
Estou tentando montar um relatório para um cadastro de profissionais, e quando tento imprimir uma sequência de registros, a primeira foto é repitida para os demais registros. A instrução que estou utilizando para carregar o objeto image é bem simples:
Dim MinhaFoto
MinhaFoto = MatriculaFuncionario.Value
ImgFotoFuncio.Picture = loadpicture ("CaminhoMinhaFoto")
Alguém pode me ajudar a entender o que está errado ?
Grato pela atenção,
Maurício Pereira
Analista de Suporte
E-mail: mauricio@sissuporte.com.br
|
|
|
|
|
|
Defende
|
JARINÚ
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 05/07/2005 22:49 hs
Nao sei de onde vem os seus dados mas o interessante seria usar um Loop e de acordo com os dados dos funcionarios ir carregando em um picture e dai sim mandar imprimir o picture. logo em seguida vc limpa o picture e carrega de novo. eu tenho no meu sistema de impressao de cracha onde a foto do funcionario eh impressa e tudo ocorre bem. Posta mais detalhes para podermos ajudar melhor. Valeu |
|
|
|
|
|
Postada em 06/07/2005 08:28 hs
Prezado "Defende",
O meu relatório foi feito utilizando uma consulta normal do Access. Como as imagens não ficam armazenadas no banco, estou tendo a dificuldade relatada acima para carregá-las no relatório. Tentei através do procedimento que exemplifiquei fazer o carregamento da imagem, mas não deu certo. Já estou tentando fazer através do Loop como você sugeriu, mas ainda não cheguei em um acordo. Você tem algum exemplo de procedimento que possa me enviar ?. Como você está carregando as imagens no seu relatório ?. Estou com a atualização deste módulo por conta deste relatório.
Grato pela atenção,
Maurício Pereira
Analista de Suporte
E-mail: mauricio@sissuporte.com.br
|
|
|
|
|
|
Postada em 08/07/2005 09:26 hs
Caros Colegas,
Para aqueles que estiverem passando pelo problema que descrevi nesta postagem, o procedimento abaixo é a solução.
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo Detalhe_Format
ObjetoImage.Picture = LoadPicture("CaminhoFoto")
Detalhe_Format:
Exit Sub
Err_Detalhe_Format:
Tratamento desejado para o erro.
Resume Detalhe_Format
End Sub
Maurício Pereira
Analista de Suporte
E-mail: mauricio@sissuporte.com.br
|
|
|
|
