Подготовка файла к печати

[Aleksandr H.]

Лист "Витрати" - исходная таблица на основании которой получаем лист для печати.
Лист "Планування" - лист, который получаем основываясь на пред. пункте.
Ячейка R2 - количество записей на листе "Витрати"
Ячейка P2 - текущая позиция для печати.
Ячейки A4:B4 - тянут данные в зависимости от значения P2
Другие формулы - из других(удаленных) листов
поверх ячеек A2,B2,J28 есть другие объекты (фигура, рисунок).

Сейчас процесс реализован так:
В цикле от 1 до R2:
- изменяется P2
- печатается диапазон А1:К37 активного листа

Неудобства:
Каждый раз лист отправляется на сетевой принтер, что занимает много времени.

Что хочу получить:
а) перенести на лист "Raport" все R2 вариантов "листа для печати" и оттуда печатать один раз
или
б) экспортировать все R2 вариантов "листа для печати" в один pdf файл.

Форматирование ячеек, текста, наличие других обектов должно сохраняться.

В файле присутствует наработка реализации п.А, проблема с незнанием как скопировать объекты/рисунок.

Прошу совета реализации задания и, по возможности, рефакторинга кода.

[Аватар]

Коллекция Shapes
У каждого есть метод Copy
У нужного листа Paste
Координаты задать

[Aleksandr H.]

Получаю ошибку "Компонент с указанным именем не найден" на строке

shRaport.Paste Destination:=shRaport.[k2]

в методе modGenerateRaport.GenerateRaport
Иногда проходит без ошибок, но чаще всего валит ошибку.