Prova a mettere

Printer.FontName = "Courier New"

Al limite, per vedere quali sono i font supportati, puoi far girare qualche cosa di questo tipo:
codice:
   Dim p As Printer
   Dim f As Integer
   For Each p In Printers
      Me.Print "Stampante: ";p.DeviceName
      For f = 1 To 1000
         If p.Fonts(f) = "" Then
            Exit For
         End If
         Me.Print p.Fonts(f)
      Next f
   Next
e nel form avrai tutti i font supportati.