Как выпадающий список переменной печати?

Question

это мой первый пост, и я очень новичок в VBA в Excel, поэтому я надеялся, что кто-нибудь сможет помочь.

Я составил электронную таблицу для школы, в которой я работаю, в которой отчет о ученике генерируется в зависимости от переменных выпадающего списка, и я хотел иметь возможность печатать все отчеты одновременно.из них 200 штук странных, поэтому я не могу сделать это один за другим.

Я нашел этот код и думаю, что у меня он работает не только для печати.Я не знаю, что это значит, добавив сюда «напечатать код страницы»

Может кто-нибудь помочь!?!

 Sub Iterate_Through_data_Validation()
Dim dvCell As Range
Dim inputRange As Range
Dim c As Range


'Which cell has data validation
   Set dvCell = Worksheets("Sheet1").Range("B1")
'Determine where validation comes from
   Set inputRange = Evaluate(dvCell.Validation.Formula1)

For Each c In inputRange
    dvCell = c.Value
    'add some print page code here
Next c

End Sub

Answer 1

если вы читаете это, я думаю, что я понял это

Это то, что я сейчас использую!

Sub Iterate_Through_data_Validation()
Dim dvCell As Range
Dim inputRange As Range
Dim c As Range


'Which cell has data validation
   Set dvCell = Worksheets("Comb Student Report").Range("B4")
'Determine where validation comes from
   Set inputRange = Evaluate(dvCell.Validation.Formula1)

For Each c In inputRange
    dvCell = c.Value
    'add some print page code here
    ActiveSheet.PrintOut
Next c

End Sub