Как отправить форму на принтер Epson WF7720 с Visual Basic 2010 - PullRequest
0 голосов
/ 31 октября 2018

Я использую следующий код. Он работал с моим старым 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)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...