Ayuda con esta validacion

03/12/2005 - 20:31 por Edison Torres | Informe spam
Hola tengo un CommandButton en el cual estoy mandando a imprimir la hoja de
REPORTES pero una vez que haya impreso o no lo imprima salga de Excel
automaticamente sin grabar, el codigo que estoy usando es el siguiente pero
no me funciona.

Private Sub CommandButton6_Click()
Unload UserForm1
Unload UserForm2
Sheets("Reportes").Activate
Application.Dialogs(xlDialogPrint).Show
Worksheets("reportes").Visible = False
Application.Quit
Save = false
End Sub

Gracias
 

Leer las respuestas

#1 :: Sergio A Campos H
04/12/2005 - 00:24 | Informe spam
Edison.

Toma en cuenta que las órdenes para activar y mostrar hojas (.Activate,
Visible = false) no se guardarían al no salvar cambios.

La instrucción se reemplazaría por:

ThisWorkbook.Close SaveChanges:=False 'Cierra el libro actual sin guardar
cambios
Application.Quit 'Cierra Excel

<!-- Tec. Inf. Sergio A Campos H -->

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net


"Edison Torres" escribió en el
mensaje news:
Hola tengo un CommandButton en el cual estoy mandando a imprimir la hoja
de
REPORTES pero una vez que haya impreso o no lo imprima salga de Excel
automaticamente sin grabar, el codigo que estoy usando es el siguiente
pero
no me funciona.

Private Sub CommandButton6_Click()
Unload UserForm1
Unload UserForm2
Sheets("Reportes").Activate
Application.Dialogs(xlDialogPrint).Show
Worksheets("reportes").Visible = False
Application.Quit
Save = false
End Sub

Gracias

Preguntas similares