Я использую следующий код. Он работал с моим старым Epson 880, но теперь он печатает маленький прямоугольник вместо того, чтобы делать форму подачи. Я думаю, что принтер не распознает код Epson ESC / P.
Sub WriteCheck (strDate As String, strAmount As String, strWordAmount As String, _
strFirstName As String, strLastName As String, strAddr1 As String, _
strAddr2 As String, strCity As String, strState As String, strCountry As String, strZip As String)
Dim intI As Integer
Dim intNchS As Integer
Dim strStars As String
' Dim strPrintline As String
Dim strFormFeed As String = ControlChars.FormFeed ', strFileName As String = "G:\VB2010\Check.out"
' Dim swCheck As New StreamWriter(frmMenu.OpenFileDialog1.FileName)
' Dim swCheck As New StreamWriter(strFileName)
' swCheck.WriteLine("test4")
' swCheck.Close()
strStars = "**********"
' strFormFeed = Chr(12)Fswcheck
' Calculate how many stars to print
intNchS = Fix((73 - lngLenStr) / 2)
If (intNchS < 1) Then
intNchS = 1
ElseIf (intNchS > 10) Then
intNchS = 10
End If
' Print checkF
'' Print #1, strFormFeed 'new page
swCheck.Write(strFormFeed)