Printing each line of typing with vb code

How can I use Printer as typewriter with VB code or I want to print each line I type before going to next line.

Code:

---

'this will print after each line but remember
'each line will now use 1 page of paper.
'
'a pc is not a typewriter
'
Option Explicit

Public sMyTyping As String

Private Sub Text1_KeyPress(KeyAscii As Integer)
   
    sMyTyping = Text1.Text & Chr(KeyAscii)

'when I press enter that is the end of the line
    If KeyAscii = 13 Then
        Printer.Print sMyTyping
        Printer.EndDoc
        sMyTyping = ""
    End If
       
End Sub

---

You could try opening the printer on LPT1 as a file and writing directly to it.

This works fine on tractor feed printers.