Dim drawFont As New Font(Carattere, DimensioneTesto, Stile)
Dim drawBrush As New SolidBrush(ColoreTesto)
Dim drawFormat As New stringformat()
drawFormat.FormatFlags = StringFormatFlags.NoWrap
Picture1.CreateGraphics.DrawString(Stringa, drawFont, drawBrush, X,Y, drawFormat)

Questo per scrivere in una picture box oppure puoi usare la print document che visualizza una anteprima e vai in stampa