How do I print all items in a dropdown list? Over 145 names in list? Please help

This macro assumes that the sheet "VST 031734" is the active sheet when you run the macro "PrtEmp"

Option Explicit

Sub PrtTemp()
Dim cell As Range

Sheets("Sheet3").Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Name = "Emp"

For Each cell In Range("Emp")

Range("B4").Value = cell.Value

' Your printing code goes in here.

Next

End Sub

Alf