Private Sub Command1_Click()

FontInfo="Courier, 8, -1, 0"
SetPrinterFont FontInfo
' Strängen har formen ... fontnamn, storlek, fet, kursiv
' som i detta fall innebär Curier font, 8 punkter, fet, ej kursiv

printer.print "Hejsan!"

FontInfo="Courier, 18, -1, 0"
SetPrinterFont FontInfo
' Sätter typsnittets storlek till 18

printer.print " och hejdå..."

'Säger att utskriften är klar (EOF)
printer.enddoc

End Sub