Imprimir una imagen desde un formulario

-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!
puedes hacerlo mediante la API ShellExecute

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String,
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As
Long) As Long
Public Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA"
(ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, ByVal
dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long,
Arguments As Long) As Long

Public Const SW_NORMAL As Long = 1&
Public Const SW_HIDE As Long = 0&
Public Const FORMAT_MESSAGE_FROM_SYSTEM As Long = &H1000


'******************************************************************************
'* ImprimirArchivo
'* manda a la impresora predeterminada el archivo pasado como parámetro
'* deberá incluir en la sección de declaraciones de un módulo las siguientes
'* Public Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'* Public Declare Function FormatMessage Lib "kernel32" Alias
"FormatMessageA" (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId
As Long, ByVal dwLanguageId As Long, _
ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Long) As Long
'*
'* Public Const SW_NORMAL As Long = 1&
'* Public Const SW_HIDE As Long = 0&
'* Public Const FORMAT_MESSAGE_FROM_SYSTEM As Long = &H1000
'*
'* Argumentos: strArchivo => Ruta del archivo a imprimir
'* uso: ImprimirArchivo ("C:\Temp\fuentes.txt")
'* http://www.mvp-access.es/emilio
'* Si utilizas este código, respeta la autoría y los créditos
'* ESH 10/09/14 18:05
'*******************************************************************************

Public Function ImprimirArchivo(strArchivo As String)
Dim lngResultado As Long, _
strError As String * 1024, _
LenMsg As Long

lngResultado = ShellExecute(0&, "Print", strArchivo, 0&, vbNullString,
SW_HIDE)
' si se ha producido algún error
If lngResultado < 33 Then
' obtenemos el mensaje de error que manda el sistema
LenMsg = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&,
lngResultado, 0&, strError, Len(strError), SW_HIDE)
' devolvemos el mensaje de error
ImprimirArchivo = Left$(strError, LenMsg - 1)
Else
' la función tuvo éxito
ImprimirArchivo = True
End If

End Function ' ImprimirArchivo
Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
escribió en el mensaje de
noticias:

Buenos días,

En un formulario he colocado un objeto imagen, que se actualiza con los
datos de una tabla cada vez que se hace click sobre los datos de un listado:

Private Sub List_Foto_Click()
...
Me.IImatge.Picture = sRuta
...
End Sub

Donde sRuta es el directorio donde estan todas las fotos


Querria saber el procedimiento para poder imprimir la foto que en ese
momento esté en pantalla.

Muchas gracias!