CodeItBetter Programming Another VB Programming Blog

'Miscellaneous - How to Set the Printer Font

Private Sub Main()
    With Printer
        .FontName = "Arial"
        .FontUnderline = False
        .FontBold = False
        .FontItalic = True
        .FontSize = "30"
        .Print "hello"
        'use the EndDoc command if this text is the last thing you want to print on the paper
        .EndDoc
    End With
End Sub