printning i vb6

jeg har en et problem.
jeg har lavet en sådan at man kan udskrive det man har skrevet. det skal stå inde på midten af sende. min kode ser sådan her du.
Private Sub Command8_Click()
Printer.Print ""
Printer.ScaleMode = 6
Printer.FontName = "Arial"
Printer.FontSize = 18
Printer.CurrentX = 50
Printer.CurrentY = 50
Printer.FontSize = 12
Printer.FontBold = False
Printer.Print text1.Text
Printer.EndDoc
End Sub

den rykker det godt nok indad men det er kun første linje!

plz hjælp mig!