General information
Title:
Change printer font
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:
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only