Printing each line of typing with vb code

[shahidul]

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

[HeSaidJoe]

'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

[Mark Sreeves]

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

This works fine on tractor feed printers.