Try:

Private Sub mnuPrint_Click()
Dim BeginPage, EndPage, NumCopies, i

CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies

Printer.FontName = "Courier New"

Printer.FontSize = 12
For i = 1 To NumCopies
Printer.Print txtTerm.Text
Printer.EndDoc
Next i
Exit Sub
ErrHandler:


You see this font on the highlighted line above.