Print all data validation list

hi expert..

i have macro code to print all data/cell with data validation list, but not working
here is

Sub PrintAllofL()
Dim LastLRow As Long, myRange As Range
LastLRow = Sheets("ok").Cells(Rows.Count, 3).End(xlUp).Row

'Verify there is a list of items starting in cell C34.
If LastLRow < 34 Then
MsgBox "There is not Data Validation list.", 64, "Nothing to print."
Exit Sub
End If

Set myRange = Worksheets("ok").Range("C34:C" & LastLRow)
myRange.PrintOut
Set myRange = Nothing
End Sub

i hope, you are there, could help me, how make code it's work..

thanks in advance...

john m