Área impresión

Quiero definir el área para impresión para 9 columnas fijas y líneas variables, tengo el código siguiente que funciona perfecto pero, mi problema es el siguiente:
Me marca también la columna 10 y esta está vacía.
La configuración de página es Horizontal y para que me abarque las 9 columnas en una sola hoja, y lo hace pero si son 10(está vacía) el texto se vuelve más pequeño y entonces a la derecha queda espacio vacío.
Pretendo que NO me seleccione la columna 10
Sub AreaImpresion() 'Opcion para agregar a Impresion, delimita el area para imprimir
    Dim primera, ultima As Variant
ActiveSheet.PageSetup.PrintArea = ""  'Eliminamos area de impresion
    Range("A1").Select 'Primer rango de area
    If ActiveCell.Value = "" Then
        Selection.End(xlRight).Select
    End If
    primera = ActiveCell.Address
    ActiveCell.SpecialCells(xlLastCell).Select   'Ultima celda con datos
    ultima = ActiveCell.Address
    MsgBox "Imprime desde " & primera & " hasta " & ultima 'Opcional: verificamos el rango a imprimir
ActiveSheet.PageSetup.PrintArea = (primera & ":" & ultima)  'Asignamos el area de impresion
End Sub
He intentado algunas cosillas pero no llego hasta resolverlo
¿Qué puede estar mal aquí?.
Agradecido de antemano y feliz navidad y un próspero año 2001

1 respuesta

-1
Respuesta de
Aparentemente este código funciona bien solo selecciona los rangos donde tienes datos comprueba que en la columna 10 no tengas datos de algún tipo como puede ser algún punto o bordes si aun así no te funciona pásame tu archivo
d2enrique arroba hotmail.com
Saludos
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje