Private Sub PrintWord(strWort As String)
'Papierformat: A4, Querformat
Printer.PaperSize = vbPRPSA4
Printer.Orientation = vbPRORLandscape
 
'Schriftgröße zunächst sehr klein festlegen
Printer.FontSize = 1
'FontSize solange erhöhen, bis das Wort nicht mehr auf die Seite passt
While Printer.TextWidth(strWort) < Printer.ScaleWidth
    Printer.FontSize = Printer.FontSize + 1
Wend
'Wort passt jetzt nicht mehr auf die Seite -> Schriftgröße wieder um 1 verringern
Printer.FontSize = Printer.FontSize - 1
 
'Text zentrieren
Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(strWort)) / 2
Printer.CurrentY = (Printer.ScaleHeight - Printer.TextHeight(strWort)) / 2
 
'Schriftfarbe Grau
Printer.ForeColor = &H808080
 
'Text ausgeben
Printer.Print strWort
 
'Druckauftrag abschließen und Ausdruck starten
Printer.EndDoc
End Sub

PrintWord ("Hallo")