Libro de excel se vuelve blanco al imprimir

[6luishao6]

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 Luish@o")

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 Luish@o"

Else

MsgBox "Haz cancelado la impresión de la hoja.", vbCritical, "Registro Pedagógico v5.2 By Luish@o"

End If
End Sub

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

gracias

[Luis paz]

Hace 7 minutos , 6luishao6 dijo:

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 Luish@o")

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 Luish@o"

Else

MsgBox "Haz cancelado la impresión de la hoja.", vbCritical, "Registro Pedagógico v5.2 By Luish@o"

End If
End Sub

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

gracias

Sub Imprimir()

    Range("A1:I19").Select
    Range("I19").Activate
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 0
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Range("a1").Select
    Application.PrintCommunication = True
End Sub

[6luishao6]

Hola Luis. En q está fallando el código?

 

Gracias

[Luis paz]

Este es el problema   

 

Par que se imprima la hoja completa debes modificar la configuración a "Imprimir hojas activas"

[6luishao6]

El código que me mandaste ya está con medidas, tamaño de la hoja?. No sé si puede explicarme más. En qué diferencia mi macro con tu macro. Y del por qué se me pone en blanco el libro una vez impresa cualquier hoja.

Gracias

[Luis paz]

Hace 14 minutos , 6luishao6 dijo:

El código que me mandaste ya está con medidas, tamaño de la hoja?. No sé si puede explicarme más. En qué diferencia mi macro con tu macro. Y del por qué se me pone en blanco el libro una vez impresa cualquier hoja.

Gracias

La que yo te envié puedes establecer el rango en la primera parte 

Sub Imprimir()

    Range("A1:I19").Select ' AQuí es donde puedes seleccionar el rano que deseas imprimir

 

La macro que tu tienes, lo que hace es activar la impresión, pero no configuras el tamaño de la hoja, la escala de impresión; sino que simplemente activas la impresión.

En la que yo te envié, tiene la ocnfiguración ya mencionada...

[6luishao6]

Y esto será el causante del por qué se pone en blanco todo el libro de excel?

[Luis paz]

Esitimado, a mi no me ocurre eso que ati de ponerse en blanco la pantalla y las hojas.

Lo que me pasa con tu código es que me aparece error el siguiente código (el cual lo elimino para poder ejecutarlo)

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 Luish@o"