Cambiar Imagen del Data Report
Publicado por sandra (33 intervenciones) el 26/09/2008 02:17:29
Hola:
Como puedo cambiarle la imagen a mi reporte. yo tengo la imagen visualizada en un picture en un formulario y al llamar al reporte lo asigno antes de abrir varias variables pero en este caso de la imagen no se como puedo hacerlo.
para asignar valores a las variables lo ago de esta manera.
NombredelReporte.Controls("etiqueta").Caption = "Nombre: " & Me.ComboBox & " "
de ese manera funciona perfecto. pero tengo problemas para asignar una imagen.
pienso q es de esta manera:
NombredelReporte.Controls("Image1").Picture = picture
Pero me da un mensaje de error que dice: EL OBJETO NO ADMITE ESTA PROPIEDAD O METODO
El picture tiene una imagen., La imagen que tiene el picture lo asigno asi:
%%%%%%%%%%%%%%%%%%%%
CommonDialog1.Filter = "*.jpg;*.gif;*.bmp"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture = LoadPicture(CommonDialog1.FileName)
'*******para guardar la imagen
On Error Resume Next
Kill (App.Path & "cfgimage.mur") ' <--- eliminas el anterior
Open App.Path & "cfgimage.mur" For Output As #1
Print #1, CommonDialog1.FileName ' ruta completa
Close #1
End If
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Bueno espero que una repuesta...
Para mi es de suma Importancia.
Muchas Gracias. Saludos.
Como puedo cambiarle la imagen a mi reporte. yo tengo la imagen visualizada en un picture en un formulario y al llamar al reporte lo asigno antes de abrir varias variables pero en este caso de la imagen no se como puedo hacerlo.
para asignar valores a las variables lo ago de esta manera.
NombredelReporte.Controls("etiqueta").Caption = "Nombre: " & Me.ComboBox & " "
de ese manera funciona perfecto. pero tengo problemas para asignar una imagen.
pienso q es de esta manera:
NombredelReporte.Controls("Image1").Picture = picture
Pero me da un mensaje de error que dice: EL OBJETO NO ADMITE ESTA PROPIEDAD O METODO
El picture tiene una imagen., La imagen que tiene el picture lo asigno asi:
%%%%%%%%%%%%%%%%%%%%
CommonDialog1.Filter = "*.jpg;*.gif;*.bmp"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture = LoadPicture(CommonDialog1.FileName)
'*******para guardar la imagen
On Error Resume Next
Kill (App.Path & "cfgimage.mur") ' <--- eliminas el anterior
Open App.Path & "cfgimage.mur" For Output As #1
Print #1, CommonDialog1.FileName ' ruta completa
Close #1
End If
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Bueno espero que una repuesta...
Para mi es de suma Importancia.
Muchas Gracias. Saludos.
Valora esta pregunta


0