Menentukan Objek Font Yang Dikirimkan Ke Printer

Contoh sederhana untuk menentukan name, underline, bold, italic, size (properties objek font) yang dikirimkan ke sebuah printer. Adapun contohnya sebagai berikut:

Private Sub Command1_Click() 
    With Printer 
        .FontName = "Arial" 
        .FontUnderline = False 
        .FontBold = False
        .FontItalic = True
        .FontSize = "30"
        .Print "Ini contoh objek font dalam printer" 
        .EndDoc 
    End With 
End Sub