• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Libro de excel se vuelve blanco al Imprimir

6luishao6

Member
Buenas tengo un problema con una macro, cuando mando a impimir (ctrl+p) imprime todo bien dejo de trabajr o de usar el libro de trabajo por unos 10 minutos o mas y se vuelve todo blanco el libro, cuando entro a otras hojas todas me salen en blanco, ojo no se cuelga el libro ni se bloquea, solo se vuelve blanco todas las hojas y el libro.

Este esta es la macro que estoy utilizando:

-----------------------------------------

Sub Imprimir()

Resultado = MsgBox("¿Estás seguro que deseas imprimir la hoja?.", vbQuestion + vbOKCancel, "Registro Pedagógico v5.2 By [email protected]")

If Resultado = vbOK Then

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

MsgBox ("DEBES DE CONFIGURAR LAS HOJAS; SI ES NECESARIO, PARA LUEGO PROCEDER CON LA IMPRESIÓN:" & Chr(13) & _

" " & Chr(13) & _

" * Margen Superior." & Chr(13) & _

" * Margen Inferior." & Chr(13) & _

" * Margen Derecho." & Chr(13) & _

" * Margen Izquierdo." & Chr(13) & _

" * Alto." & Chr(13) & _

" * Ancho." & Chr(13) & _

" * Orientación de Pagina: (Orizontal, Vertical)." & Chr(13) & _

" * Tamaño de Hoja: (Carta, Oficio)." & Chr(13) & _

" ¿Quieres pulsar Aceptar?"), _

vbCritical, "Registro Pedagógico v5.2 By [email protected]"

Else

MsgBox "Haz cancelado la impresión de la hoja.", vbCritical, "Registro Pedagógico v5.2 By [email protected]"

End If

End Sub
----------------------
Gracias
 
Arriba