Crear boton

[SuRpRiSe18]

Hola! muy buenas a todos!!

Mi problema es el siguiente!! Estoy creando un menu (contextual, aunque creo que el tipo no influye) y quiero agregar un boton personalizado.

Ese boton ha de realizar la función de mostrar la pantalla que sale cuando le das a imprimir para seleccionar una impresora y esas cosas (acCmdPrint).

esa función la cree a traves de un modulo

Código:

Function Imprimir()
On Error GoTo Error


    DoCmd.RunCommand acCmdPrint
    
Exit_Imprimir:
    Exit Function

Error:
    Exit Function
    
End Function

tampoco estoy seguro 100% de que el modulo este correcto.

Si alguien me puede ayudar le estare muy agradecido!!!!!

Ciao

[Skakeo]

A ver si siguieras en el mismo hilo y por lo menos dieras las gracias, todo seria mejor, para todos.
Si puedes usarla y esta bien, debes poner en la accion del menu, =Imprimir.
Si no funciona, puedes volver a preguntar en este hilo.
Un saludo
Skakeo®

[SuRpRiSe18]

Hola buenas skakeo!!

muxas gracias x tu respuesta.

No se que hice mal pero no funciona... el codigo es el q puse antes... y el modulo se llama imprimir. En el boton personalizado puse =Imprimir como m dijiste y cuando le doy me sale un mensaje q dice lo siguiente:

'No puede encontrar el nombre Imprimir que introdujo en la expresion'

luego pone muxo mas texto pero eso es lo q sale en negrita

Muxas gracias por todo

[Skakeo]

A ver te comento porque es muy curioso, y me ha costado verlo, pero tiene solucion, te explico, esta accion de comando solo se ejecuta cuando esta un informe o un formulario abierto, sino da error y no ejecuta la accion, por no estar disponible.
En fin la solucion mira he transformado un poco tu funcion, la pegas en un modulo como bien haces, creas un menu personalizado y en la accion pones =SelImprimir()
, para probar el menu primero debes tener cargado o un formulario o un informe, entonces vas al menu lo seleccionas y ejecutara lo que andamos buscando.
La funcion:
Public Function SelImprimir() As Boolean
On Error GoTo Error_Imprimir
DoCmd.RunCommand acCmdPrint
Exit_Imprimir:
Imprimir = True
Exit Function
Error_Imprimir:
Imprimir = False
Exit Function
End Function
Un saludo
Skakeo®

[Skakeo]

Te he añadido en el messenger, por si quieres consultar algo.
Un saludo
Skakeo®