У меня есть лист Excel, содержащий таблицу с раскрывающимся списком в одной из ячеек. Также есть кнопка, содержащая код для перебора всех параметров раскрывающегося списка и отправки таблицы на печать каждый раз. Однако каждый раз, когда таблица отправляется на печать, на всю страницу печатается только одна таблица. Стол довольно маленький, так что на это тратится много бумаги. Есть ли способ разместить несколько таблиц на одной странице?
Это мой текущий код:
Sub Iterate_Through_Data_Validation()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets("Print").Range("C2")
Set xRgVList = Evaluate(xRg.Validation.Formula1)
For Each xCell In xRgVList
xRg = xCell.Value
ActiveSheet.PrintOut
Next
End Sub