Vista previa de Impresion no permite utilizar el icono de imprimir

03/09/2008 - 03:26 por Oscar GT | Informe spam
Buenas tardes

Aun sigo con problemas para poder imprimir

Elabore un archivo con macros, mismo que no funciona bien en excel 2007 y en
versiones anteriores si ya que la barra de herramienta se bloquea.

Este es el macro para activar el UF al momento de ejecutar el archivo:
Private Sub Workbook_Open()
Application.Visible = False
UF1.Show
End Sub

Dentro del UF tengo los siguientes botones

1.- Boton Muestralibro (con este macro muestro el libro y puedo utilizar la
vista previa de manera manual y la barra de herramienta NO esta bloqueada).

Private Sub Muestralibro_Click()
UF1.Hide
ThisWorkbook.Application.Visible = True
End Sub

2.- Boton Vistaprevia (Al momento de utilizar este macro se actia la vista
previa automaticamente Y EL PROBLEMA ES QUE NO ESTA ACTIVA LA BARRA DE
HERRAMIENTA, NO PUEDO UTILIZAR EL ICONO DE IMPRESION)

Private Sub Vistaprevia_Click()
UF1.Hide
ThisWorkbook.Application.Visible = True
Worksheets("Hoja1").Activate
Range("a3").Select
Application.ScreenUpdating = True
ActiveWindow.SelectedSheets.PrintPreview
ThisWorkbook.Application.Visible = True
UF1.Show
End Sub

son todas las instrucciones que tiene el libro de prueba que elabore y
solamente me falla en excel 2007, en las versiones anteriores no tengo
problemas
 

Leer las respuestas

#1 Héctor Miguel
03/09/2008 - 05:54 | Informe spam
hola, Oscar !

la primera vez que abri un libro "recien creado" en la version 2007 con los elementos de tu consulta (UF y demas)...
excel "me advirtio" que el libro contenia "posibles elementos de riesgo" para la aplicacion :-((

esto me hizo recordar que en la version 2007, el tema de la seguridad "reacciona" diferente a los objetos de automatizacion
para no hacerte el cuento largo... dos o tres consejos:

1) evita el simplemente "esconder" el formulario cuando ya no lo vayas a utilizar (en lugar de Hide usa Unload)
2) para evitar que la automatizacion desde el formulario para mostrar la vista preliminar de impresion inhiba la cinta en 2007
usa una macro "alterna" (en un modulo de codigo estandar en vez del modulo "de clase" del formulario
3) dejo a tu criterio el uso del "Application.Visible", ya que una vez mostrado el libro... no vuelves a ver el formulario -???-

los codigos que funcionan en la version 2007 (incluso mas "cortos") son los siguientes:

saludos,
hector.

a) en el modulo del libro:

Private Sub Workbook_Open()
Application.Visible = False
UF1.Show
End Sub

b) en el modulo del formulario:

Private Sub Muestralibro_Click()
Unload Me
Application.Visible = True
End Sub
Private Sub Vistaprevia_Click()
Unload Me
Application.OnTime Now, "mostrar_vistaprevia"
End Sub

en un modulo estandar:
Option Private Module
Sub Mostrar_VistaPrevia()
Application.Visible = True
Worksheets("Hoja1").Activate
Range("a3").Select
ActiveWindow.SelectedSheets.PrintPreview
UF1.Show
End Sub

__ OP __
Aun sigo con problemas para poder imprimir
Elabore un archivo con macros, mismo que no funciona bien en excel 2007
y en versiones anteriores si ya que la barra de herramienta se bloquea...

Este es el macro para activar el UF al momento de ejecutar el archivo:
Private Sub Workbook_Open()
Application.Visible = False
UF1.Show
End Sub

Dentro del UF tengo los siguientes botones

1.- Boton Muestralibro (con este macro muestro el libro y puedo utilizar la vista previa de manera manual
y la barra de herramienta NO esta bloqueada).

Private Sub Muestralibro_Click()
UF1.Hide
ThisWorkbook.Application.Visible = True
End Sub

2.- Boton Vistaprevia (Al momento de utilizar este macro se actia la vista previa automaticamente
Y EL PROBLEMA ES QUE NO ESTA ACTIVA LA BARRA DE HERRAMIENTA, NO PUEDO UTILIZAR EL ICONO DE IMPRESION)

Private Sub Vistaprevia_Click()
UF1.Hide
ThisWorkbook.Application.Visible = True
Worksheets("Hoja1").Activate
Range("a3").Select
Application.ScreenUpdating = True
ActiveWindow.SelectedSheets.PrintPreview
ThisWorkbook.Application.Visible = True
UF1.Show
End Sub

son todas las instrucciones que tiene el libro de prueba que elabore y solamente me falla en excel 2007
en las versiones anteriores no tengo problemas

Preguntas similares