PageSetup.PrintArea para varios rangos que están separadas

votos
0

Tengo el siguiente código que exporta el rango seleccionado en la hoja de trabajo como archivo .pdf:

    'More coding above
    With Sheet7
        If (CheckBox1.Value = True And CheckBox2.Value = True) Then
            .PageSetup.PrintArea = A8:M80
        ElseIf (CheckBox1.Value = True And CheckBox2.Value = False) Then
            .PageSetup.PrintArea = A8:M55
        ElseIf (CheckBox1.Value = False And CheckBox2.Value = True) Then
            .PageSetup.PrintArea = A8:M32, A56:M80
        Else
            MsgBox 'At least one option must be selected!'
            Exit Sub
        End If
     End With
     'More coding below

Sin embargo, cuando sólo CheckBox2se comprueba, el archivo se genera seleccionando sólo las zonas según lo dispuesto por If/Else, pero aún muestra la A33:M55brecha entre rangos.

¿Hay alguna forma podría suprimir esta brecha? Quiero que el código para imprimir ambas gamas como si fueran una sola.

He probado el Unionmétodo, pero me da el mismo resultado.

¡Cualquier ayuda será apreciada!

Publicado el 19/09/2018 a las 17:14
fuente por usuario
En otros idiomas...                            


1 respuestas

votos
0

La forma más sencilla es ocultar filas unnecesarry si es posible por un momento antes de impresión a PDF. De esta manera usted debe asegurarse de macro después de todas las filas son visibles (adicional puede utilizar On Error GoTo y mostrar por si acaso)

Respondida el 19/09/2018 a las 17:44
fuente por usuario

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more