Impresión Formulario

19/10/2009 - 21:19 por Mauricio | Informe spam
1. Cree un programa en excel el cual al ejecutarlo muestra únicamente un
formulario en visual y mediante una instrucción inhabilite todo el excel para
que los usuarios no puedan acceder a nada ni siquiera a las hojas. El
aplicativo no tiene clave de bloqueo de proyecto. ¿ Cómo puedo hacer para
poder acceder al código y a las hojas en el evento que desee hacer
modificaciones? ya que el formulario tiene únicamente un botón para guardar
y salir del aplcativo?

2 En este mismo programa los usuarios solicitan una información la cual sale
desplegada en dicho formulario. ¿ Cómo puedo hacer la inpresión del resultado
de la busquedad ya que el registro no lo guardo en ninguna hoja?

Agradezco de antemano la colaboración prestada.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
21/10/2009 - 02:27 | Informe spam
hola, Mauricio !

1. Cree un programa en excel el cual al ejecutarlo muestra unicamente un formulario en visual
y mediante una instruccion inhabilite todo el excel para que los usuarios no puedan acceder a nada ni siquiera a las hojas.
El aplicativo no tiene clave de bloqueo de proyecto.
Como puedo hacer para poder acceder al codigo y a las hojas en el evento que desee hacer modificaciones?
ya que el formulario tiene unicamente un boton para guardar y salir del aplcativo?

2 En este mismo programa los usuarios solicitan una informacion la cual sale desplegada en dicho formulario.
Como puedo hacer la inpresion del resultado de la busquedad ya que el registro no lo guardo en ninguna hoja?



1) op1: incluyendo codigo que te permita la interrupcion de los unicos eventos (entrar/grabar/salir) que hace tu programa ?
op2: omitiendo la ejecution de eventos de apertura ? -> al abrir tu archivo y habilitar sus macros, manten pulsada la tecla {shift}
op3: provocando algun error de interrupcion en el momento que quieras detener el codigo ? -> pulsa {ctrl}+{pausa/break}

2) podrias hacer un 'copiar/pegar' del portapapeles (formato: mapa de bits)
sobre una hoja de un libro nuevo (creado al vuelo)
al hacer click en un boton de comando en el formulario (p.e. CommandButton1)

si cualquier duda... comentas?
saludos,
hector.

copia las siguientes lineas [ligeramente adaptado de un codigo de Orlando Magalhães Filho]
en el modulo de codigo del formulario ==Private Declare Sub ImprPant Lib "User32" Alias "keybd_event" ( _
ByVal Tecla As Byte, _
ByVal Monitor As Byte, _
ByVal Estado As Long, _
ByVal InfoE As Long)
Private Sub CommandButton1_Click()
DoEvents
ImprPant 164, 0, 1, 0
ImprPant 44, 0, 1, 0
ImprPant 44, 0, 1 + 2, 0
ImprPant 164, 0, 1 + 2, 0
DoEvents
Workbooks.Add
ActiveSheet.PasteSpecial Format:="mapa de bits"
ActiveWindow.PrintOut
ActiveWorkbook.Close False
End Sub

-> nota: si la aplicacion es en ingles... deberas cambiar 'mapa de bits' por 'bitmap' <= OJO
Respuesta Responder a este mensaje
#2 Héctor Miguel
21/10/2009 - 08:05 | Informe spam
hola, Mauricio !

1) op1: incluyendo codigo que te permita la interrupcion de los unicos
eventos (entrar/grabar/salir) que hace tu programa ?
op2: omitiendo la ejecution de eventos de apertura ? -> al abrir tu
archivo y habilitar sus macros, manten pulsada la tecla {shift}
op3: provocando algun error de interrupcion en el momento que quieras
detener el codigo ? -> pulsa {ctrl}+{pausa/break}

2) podrias hacer un 'copiar/pegar' del portapapeles (formato: mapa de bits)
sobre una hoja de un libro nuevo (creado al vuelo)
al hacer click en un boton de comando en el formulario (p.e.
CommandButton1)

si cualquier duda... comentas?
saludos,
hector.

copia las siguientes lineas [ligeramente adaptado de un codigo de Orlando
Magalhães Filho]
en el modulo de codigo del formulario ==Private Declare Sub ImprPant Lib "User32" Alias "keybd_event" ( _
ByVal Tecla As Byte, _
ByVal Monitor As Byte, _
ByVal Estado As Long, _
ByVal InfoE As Long)
Private Sub CommandButton1_Click()
DoEvents
ImprPant 164, 0, 1, 0
ImprPant 44, 0, 1, 0
ImprPant 44, 0, 1 + 2, 0
ImprPant 164, 0, 1 + 2, 0
DoEvents
Workbooks.Add
ActiveSheet.PasteSpecial Format:="mapa de bits"
ActiveWindow.PrintOut
ActiveWorkbook.Close False
End Sub

-> nota: si la aplicacion es en ingles... deberas cambiar 'mapa de bits' por
'bitmap' <= OJO
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida