PageSetup.PrintArea для нескольких диапазонов, которые разделены

Question

У меня есть следующий код, который экспортирует выбранный диапазон на листе в виде файла .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

Однако, когда проверяется только CheckBox2, файл генерируется, выбирая только области, как установленона If/Else, но все еще показывает A33:M55 разрыв между диапазонами.

Есть ли в любом случае, я мог бы подавить этот разрыв?Я хочу, чтобы код печатал оба диапазона, как если бы они были одним.

Я попробовал метод Union, но он дает мне тот же результат.

Любая помощь будет принята с благодарностью!

Answer 1

Самый простой способ - скрыть ненужные строки, если это возможно на мгновение перед печатью в PDF.Таким образом, вы должны убедиться, что после макроса все строки видны (дополнительно вы можете использовать On Error GoTo и показывать на всякий случай)