Credo che tu intenda da stampante. Beh usa i normali eventi di stampa e per quanto riguarda la posizione del testo, puoi calcolarla in questo modo per ogni riga ad esempio così:
'Nell'evento PrintDocument.Printpage
Dim Center As New Point(e.PageBounds.Width / 2, _
e.PageBounds.Height / 2)
Dim Str As String = "Testo da stampare."
Dim Font As New Font("Timer New Roman", 14, FontStyle.Regular)
Dim Size As SizeF = e.Graphics.MeasureString(Str, Font)
Dim Start As New Point(Center.X - Size.Width / 2, Center.Y - Size.Height / 2)
e.Graphics.RenderingOrigin = New Point(0, 0)
e.Graphics.DrawString(Str, Font, Brushes.Blue, Start)