Ya encontré la Solución:
Código vb:
Ver originalPrivate Sub PrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
Create_String(TheString, e.Graphics)
End Sub
Private Sub Create_String(ByVal Str As String, ByVal gr As Graphics)
gr.DrawString(str, Font, Brushes.Black, x, y)
End Sub