Excel VBA по умолчанию установил, чтобы при печати не делилось изображение на две части.

Question

Я работаю над проектом в VBA, который берет данные из нашей онлайн-системы, выполняет много форматирования, а затем представляет их в готовых для печати формах, которые должны соответствовать шаблону SOP в новой книге.В результате в нижней части строк данных должно быть изображение (обратите внимание, что это не нижний колонтитул).

К сожалению, при печати, если изображение заканчивается вставкой рядом с разрывом страницыИзображение разделено на две части.Кто-нибудь знает какие-либо VBA CDE или учебники, которые могут помочь мне сказать Excel, чтобы просто переместить изображение на следующую страницу, а не разделить его на две части?Я провел исследование с настройками принтера и настройкой страницы, но пока не нашел ничего подходящего.

Мой текущий код:

For each xWorksheet in ActiveWorkbooks.Worksheets
    lastrow = xWorksheet.Cells(Rows.Count, 1).End(xlUp).row
    Range("A" & lastrow + 3).Select 
    xWorksheet.Pictures.Insert("filepath\file name.jpg").Select
Next xWorksheet

Answer 1

Вам потребуется область печати (которую можно найти здесь: Определение размера напечатанной страницы в Excel VBA ) и убедитесь, что каждое из размеров изображения находится в пределах, кратном этой области.