Foros del Web » Soporte técnico » Ofimática »

Problema al imprimir formulario de Access con imágenes en pdf

Estas en el tema de Problema al imprimir formulario de Access con imágenes en pdf en el foro de Ofimática en Foros del Web. Hola Forereros, Tengo un formulario en Access 2010 en el que se muestran tres imágenes diferentes. Cuando paso de un registro a otro del formulario, ...
  #1 (permalink)  
Antiguo 30/05/2012, 10:38
 
Fecha de Ingreso: mayo-2012
Mensajes: 1
Antigüedad: 12 años, 6 meses
Puntos: 0
Pregunta Problema al imprimir formulario de Access con imágenes en pdf

Hola Forereros,

Tengo un formulario en Access 2010 en el que se muestran tres imágenes diferentes. Cuando paso de un registro a otro del formulario, un código visual basic busca las imágenes y las cambia. Hasta ahí va todo bien . Sin embargo, al tratar de imprimir el formulario, las imágenes no se refrescan, y siempre imprime las mimas tres. Hago copy paste del código del formulario para vuestros comentarios. Alguna idea? saludos y gracias de antemano!

Option Compare Database


Private Sub Form_current()
Dim REFE, ruta, ruta1, ruta2, ruta3, CLIENTE, ruta_cliente As String
Dim value As Boolean

ruta = "C:\FOTOS\"
REFE = CStr(Me.REFERENCIA)
CLIENTE = CStr(Me.CLIENTE)

ruta1 = ruta + REFE + "_01.jpg"
ruta2 = ruta + REFE + "_02.jpg"
ruta3 = ruta + REFE + "_03.jpg"


If Dir(ruta1) <> "" Then
Me.Foto_01.Picture = ruta1
Else
Me.Foto_01.Picture = "C:\FOTOS\fire.png"
End If

'If My.Computer.FileSystem.FileExists(ruta2) Then
If Dir(ruta2) <> "" Then
Me.Foto_02.Picture = ruta2
Else
Me.Foto_02.Picture = "C:\FOTOS\Bird.png"
End If

'value = My.Computer.FileSystem.FileExists(ruta3)
'If My.Computer.FileSystem.FileExists(ruta3) Then
If Dir(ruta3) <> "" Then
Me.Foto_03.Picture = ruta3
Else
Me.Foto_03.Picture = "C:\FOTOS\Water.png"
End If

End Sub

Etiquetas: access, formulario, imágen, pdf, print
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 04:07.