Hola:

Necesito imprimir una imagen desde acces 2000 sin utilizar ningun report ni
ningun informe ni cristal ni nada, sino directamente a la impresora,
utilizando un control o cualquier otra cosa que me pudiera servir.

He intentado hacerlo, pero en acces no existe el objeto printer de vb, y no
puedo usar la funcion bitblt para imprimir como he hecho en otros sitios.

Alguien se ha enfrentado antes a este problema??? Sabeis alguna solucion???


SOLUCION DE EDUARDO OLAZ (No válida para MDE)
=============================================
A ver si te sirve esto:

En realidad te crea un report que lo elimina inmediatamente después de ser
impreso.

Public Sub ImprimirImagen(ByVal Fichero As String)
    Dim strInforme As String
    Dim rpt As New Report
    Dim ctl As New Control
    Set rpt = CreateReport
    strInforme = rpt.Name
    Set ctl = CreateReportControl(strInforme, acImage, acDetail)
    ctl.Picture = Fichero
    DoCmd.PrintOut
    DoCmd.Close acReport, strInforme, acSaveNo
    Set ctl = Nothing
    Set rpt = Nothing
End Sub

Para MDE, como no es modificable,  en un informe previamente creado con sólo un control image,
simplemente abres el informe, asocias el fichero a la propiedad picture del
control, imprimes el informe y lo cierras sin guardar.


OTRA RESPUESTA DE KARLITOS
==========================

Entonces, lo mejor es que crees el informe, con un objeto Picture, y en el
evento "Al dar formato" que le pases por código, cual es el archivo origen
de la imagen.
Quizá te cueste dejarlo "perfectamente ajustado" pero una vez conseguido,
listo para siempre.

El código para que la imagen sea la que quieras, sería algo así:

Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo EH

'El control del informe, se llama Foto
'La propiedad picture es la ruta de la foto a mostrar
'Los nombres de los ficheros jpg, coinciden con el DNI de cada socio (esto
no será igual en tu aplicación, evidentemente)
'La función NZ, es para devolver el nombre del archivo si el campo DNI está
en blanco

'Asignar el archivo al control
Me.Foto.Picture = "C:\SAP\Fotos\" & Nz(Me.DNI, "BlankFoto") & ".jpg"

Fin:
    Exit Sub

EH:
    Select Case Err.Number
        Case 2220 'No se puede mostrar la foto, ruta especificada no válida
            'En ese caso, mostrar el archivo en blanco
            Me.Foto.Picture = "C:\SAP\Fotos\BlankFoto.jpg"
            Resume Fin
        Case Else
            MsgBox Err.Number & ": " & Err.Description, vbExclamation,
"ATENCIÓN"
            Resume Fin
    End Select
End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)