Здравствуйте!
Есть пара поименованных ячеек:
Левая верхняя - "first", правая нижняя - "end".
Такой код :
прекрасно работал бы, если бы ячейка "end" была простой, а она в действительности состоит из объединённых ячеек.
Ну и получается вот такая область печати, как на приложенной картинке. Угловой штамп не входит полностью в область печати.
Попытался сделать что-то вроде:
Ан не получилось. Другие танцы с бубном - тоже.
Как изменить строчку кода, чтобы область печати увеличилась на столбец вправо и на пару строк вниз?
Догадываюсь, что нужно использовать MergeArea, но как - ума не приложу.
Спасибо.
_______________________________
Сам нашёл:
Есть пара поименованных ячеек:
Левая верхняя - "first", правая нижняя - "end".
Такой код :
| Код |
|---|
ActiveSheet.PageSetup.PrintArea = Range("first", "end").Address
|
Ну и получается вот такая область печати, как на приложенной картинке. Угловой штамп не входит полностью в область печати.
Попытался сделать что-то вроде:
| Код |
|---|
ActiveSheet.PageSetup.PrintArea = Range("first", Cells(Cells.Name = "end").Offset(1, 2)).Address
|
Как изменить строчку кода, чтобы область печати увеличилась на столбец вправо и на пару строк вниз?
Догадываюсь, что нужно использовать MergeArea, но как - ума не приложу.
Спасибо.
_______________________________
Сам нашёл:
| Код |
|---|
Set Ma = Range("end").MergeArea
'MsgBox Ma.Address
Set rngEnd = Ma.Cells(Ma.Rows.Count, Ma.Columns.Count)
'MsgBox rngEnd.Address
ActiveSheet.PageSetup.PrintArea = Range("first", rngEnd).Address
|
Изменено: - 27.03.2019 12:59:03
