Print list and selected cells using macro linked to button

[MrsK]

Hi All,

I've created a button which prints a selected range of cells in the active sheet as below:
Sub PrintSomeCells()
Range("A1:D10").PrintOut
End Sub

I now want a button which prints the data associated with an entire drop down list but I also want it to only print the range for each of these sheets, as in the above code. I've got this so far:
Sub Iterate_Through_data_Validation()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets("Student Profiles").Range("F3")
Set xRgVList = Evaluate(xRg.Validation.Formula1)
For Each xCell In xRgVList
xRg = xCell.Value
ActiveSheet.PrintOut
Next
End Sub

Can anyone help me with what I need to change?
Thank in advance!