Tema: Crear boton
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 21/07/2004, 02:12
Skakeo
 
Fecha de Ingreso: junio-2004
Ubicación: Barcelona
Mensajes: 61
Antigüedad: 19 años, 11 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®