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