Saltar al contenido

Libro de excel se vuelve blanco al imprimir


Recommended Posts

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

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

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...

Enlace a comentario
Compartir con otras webs

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"

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 93 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      89
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • si eres de los que creen que "una imagen dice mas que mil palabras" (?) toma en cuenta que (hablando de excel)... un modelo (EN excel) bien se merece mas de mil imagenes o explicas (con lujo de detalles) como (RE)crear un modelo con los datos (+/- exactamente) iguales al tuyo o adjuntas (una copia muy RE-DU-CI-DA de) TU modelo (puede ser inventada, solo procura que sea fiel de la situacion a resolver) OJO: si hay datos "sensibles", son de los que puedes inventar por "re-du-ci-da" me refiero a un adjunto de no mas de 10 a 30 Kb solo se requieren unos pocos registros con datos suficientes y representativos de tu modelo real (SIN "formatitis") en cualquier caso, incluir/argumentar/... un ejemplo (resuelto a mano) suele ser de utilidad cuanto y mas, si comentas tambien las consideraciones del caso
    • Sube tu archivo y lo intentamos, deja una muestra de como debe quedar la fusión de las misma  
    • Buenas tardes estaba intentando combinar los datos de dos hojas con la misma estructura de columnas y celdas dentro de una hoja diferente, pero existen tanto datos numéricos como de texto, además de celdas vacías por que es un excel que se va rellenando progresivamente. Son dos hojas Seguimiento1 y Seguimiento 2 las dos tienen datos iguales y diferentes dado que seguimiento 2 es una actualización del 1. Quisiera poder combinar los datos tanto de Seguimiento1 como de Seguimiento2 en otra hoja, he probado varias formas pero solo consigo que aparezcan los datos de Seguimiento1 en la nueva hoja y no una fusión entre los 2. En el ejemplo pongo datos en sitios diferentes en cada hoja intentando que en la nueva hoja al fusionar los dos se rellenen las celdas vacías con los campos de ambas. Gracias de antemano.    
    • Buenas tardes estaba intentando combinar los datos de dos hojas con la misma estructura de columnas y celdas dentro de una hoja diferente, pero existen tanto datos numéricos como de texto, además de celdas vacías por que es un excel que se va rellenando progresivamente. Son dos hojas Seguimiento1 y Seguimiento 2 las dos tienen datos iguales y diferentes dado que seguimiento 2 es una actualización del 1. Quisiera poder combinar los datos tanto de Seguimiento1 como de Seguimiento2 en otra hoja, he probado varias formas pero solo consigo que aparezcan los datos de Seguimiento1 en la nueva hoja y no una fusión entre los 2. En el ejemplo pongo datos en sitios diferentes en cada hoja intentando que en la nueva hoja al fusionar los dos se rellenen las celdas vacías con los campos de ambas. Gracias de antemano.  
    • A sus pies MAESTRO!!!!   La virgen en 5 min arreglado....   Ahora me toca estudiarmelo bien, para ver los cambios.   MUCHAS GRACIAS!!!!!!
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.