Can someone tell me how to change the font in the following code? I need a font where all the characters are the same length.

Thanks

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.FontSize = 12
For i = 1 To NumCopies
Printer.Print txtTerm.Text
Printer.EndDoc
Next i
Exit Sub
ErrHandler: