I have a worksheet named 'RAG' that creates individual sheets for each student.
currently I have the code below that prints each validation. However, I'm looking at a way to have option to save it as one PDF document.
I will want to be able to choose file path and name at point of save.
Any brilliant minds out there that can help?
for information - the validation list length changes depending on how many names are entered on a number page.
Sub Print_all()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets("RAG").Range("C2")
Set xRgVList = Evaluate(xRg.Validation.Formula1)
For Each xCell In xRgVList
xRg = xCell.Value
ActiveSheet.PrintOut
Next
End Sub
currently I have the code below that prints each validation. However, I'm looking at a way to have option to save it as one PDF document.
I will want to be able to choose file path and name at point of save.
Any brilliant minds out there that can help?
for information - the validation list length changes depending on how many names are entered on a number page.
Sub Print_all()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets("RAG").Range("C2")
Set xRgVList = Evaluate(xRg.Validation.Formula1)
For Each xCell In xRgVList
xRg = xCell.Value
ActiveSheet.PrintOut
Next
End Sub