Vba страница разбить лист для распечатки 2 A3 - PullRequest
0 голосов
/ 09 ноября 2018

Извините, ребята, у меня проблема с настройкой страницы. это сводит меня с ума .....

Dim LastRow As Long
LastRow = Worksheets("A").Cells(Rows.Count, "A").End(xlUp).Row

Worksheets("A").PageSetup.PrintArea = "$C$1:$BG$" & LastRow
Worksheets("A").PageSetup.PrintTitleColumns = "$A$1:$B$65536"
Worksheets("A").Columns("AC").PageBreak = xlPageBreakManual

With Worksheets("A").PageSetup
.PaperSize = xlPaperA3
End With

Worksheets("A").PageSetup.Orientation = xlLandscape

У меня есть Excel, данные которого переходят из столбца (A) в столбец (BG) Я хочу установить настройки страницы для разрыва 2 части. от столбца А до столбца В установите его как заголовок столбца затем разрыв страницы на 2 части, один - столбец C1 - столбец AB (Lastrow), другой - столбцы AC1 - столбец BG (Lastrow)

поэтому будет распечатана 2 страницы формата А3. один - col (A) + col (B) заголовок + col C1 к col AB (Lastrow) один - col (A) + col (B) заголовок + col AC1 к colBG (Lastrow)

но код не получает ошибок, существует и не работает. пожалуйста, кто-нибудь может сказать мне проблему?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...