21/07/2004, 02:12
|
| | Fecha de Ingreso: junio-2004 Ubicación: Barcelona
Mensajes: 61
Antigüedad: 20 años, 5 meses Puntos: 1 | |
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® |