VBA изменить параметры печать

[MaxxVer]

Добрый день, уважаемы знатоки!

Подскажите, пожалуйста, что не так с кодом параметров печати:

    PageSetup.Zoom = False
    FitToPagesWide = 1
    FitToPagesTall = 100
    PageSetup.PrintArea = ""
    PrintTitleRows = "$6:$10"
    PrintTitleColumns = ""
    PageSetup.PrintArea = rng

Вроде прописано что ширина в 1 лист (FitToPagesWide = 1), диапазон печати задаю (rng), а лист все равно остается разбитым на несколько диапазонов? Макрос изначально скрывает ненужные столбцы, может в этом дело..?

[DiemonStar]

with  PageSetup
    .PrintArea = rng
    .PrintTitleRows = "$6:$10"
    .PrintTitleColumns = ""
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
end with

попробуйте так

[MaxxVer]

Не помогло(. Возможно, дело в вертикальных разрывах, может кто знает как передвинуть все VPageBreaks на определенный столбец?

[MaxxVer]

К моему сожалению, вопрос не решен. Много чего перепробовал, но безрезультатно… Прошу пишите хоть какие-нибудь варианты.

[Hugo121]

Set rng = Range(Cells(6, 1), Cells(itog, 212))

[MaxxVer]

Спасибо, но не помогло((

[Hugo121]

Тут ещё попробуйте изменить:

PageSetup.PrintArea = rng.Address

Хотя в детали не вникал - просто вижу, что диапазон не задан, а в параметре должна быть строка.

[MaxxVer]

А как вы понимаете что диапазон не задан?

[Hugo121]

При пошаговом прогоне кода при наведении мышки на rng показывает Nothing, Ну и в окне Locals можно посмотреть, что в этой переменной.

[MaxxVer]

Точно, заметил. Поправил, хотя все равно не помогает. Чтож за ерунда-то с этой печатью, никак не победить...