Macro to Select Printer

I am new to macros and I have this code to select and print certain sheets;

Sub PrintRec()
Dim sht As Worksheet

For Each sht In ThisWorkbook.Worksheets
If sht.Range("A60").Value = "Print" Then
sht.PrintOut
End If
Next sht

End Sub

But I need to select a certain printer, which is not the default, how do I do this?