Android Question Print via the local network

[vecino]

Hello, is it possible to print to a local network?
No internet. It is a local network with cable and wifi.

 

[DonManfred]

See Serial-Library. If your printer can be accessed by wifi then it should be possible to send print commands with the serial lib to this printer.

 

[vecino]

Hi, thanks for responding.
The printer is connected via a LAN cable.
Is it possible then with serial library?

 

[DonManfred]

The printer is connected via a LAN cable.
Is it possible then with serial library?

I dont know, sorry.

 

[Picena Informatica]

Model of printer?

 

[vecino]

A Epson TM-T20 II and other 'chinese' unbranded
I need to connect via LAN cable.

 

[Picena Informatica]

Try to connect on port 9100. Send ASCII text directly on output stream. Be sure to close connection after send complete.

 

[vecino]

Thanks, I'll try.

 

[Peter Simpson]

Epson TM-T20 II

@vecino I would use the Network library and the RandonAccessFile library, see the code below.

Sub Process_Globals
    Dim TMT20II As Socket 'Network library
    Dim AStreams As AsyncStreams 'RandomAccessFile library
End Sub

Sub Activity_Create(FirstTime As Boolean)
    TMT20II.Initialize("TMT20II")
    TMT20II.Connect("192.168.0.100", 9100, 0) '100=Printer address, 9100=Port number (please look up port number)
End Sub

Sub TMT20II_Connected (Successful As Boolean)
    Log(Successful)
    If Successful Then
        AStreams.Initialize(TMT20II.InputStream, TMT20II.OutputStream, "AStreams")
        CallSub(Null, SendToPrinter)
    End If
End Sub

Sub SendToPrinter
    Dim SendMsg As String

    SendMsg = Chr(27) & Chr(61) & Chr(1) 'Select EPSON printer
    AStreams.Write(SendMsg.GetBytes("UTF8"))

    SendMsg = "Hello, this is a test print" 'Send this line to the EPSON printer
    AStreams.Write(SendMsg.GetBytes("UTF8"))

    SendMsg = Chr(27) & Chr(100) & Chr(2) 'Line feed
    AStreams.Write(SendMsg.GetBytes("UTF8"))

    SendMsg = Chr(27) & Chr(109) 'Partial cut receipt paper
    AStreams.Write(SendMsg.GetBytes("UTF8"))
End Sub

'You need to add more AStreams subs here.

Once connected to the printer, you can use AsyncStreams to send escape codes and data stream directly to the receipt printer over the LAN.

Please note: I have not actually done this before, but I can't see why the above code would not work. The code should work just fine IMO...

 

[vecino]

Oh!, thank you very much, that's great. I'll try

 

[vecino]

Fantastic, Great !!!
Thank you very much

I have a question. How I can know the port?
I made a loop, testing port 1, 2, 3, 4, 5, etc.
It was finally port 9100

 

[Picena Informatica]

The default i 9100.

 

[vecino]

I did not know

 

[vecino]

At the moment it is running tests I'm doing.

Thank you very much

 

[sakissoft]

Epson TM-T20 II

@vecino I would use the Network library and the RandonAccessFile library, see the code below.

Sub Process_Globals
    Dim TMT20II As Socket 'Network library
    Dim AStreams As AsyncStreams 'RandomAccessFile library
End Sub

Sub Activity_Create(FirstTime As Boolean)
    TMT20II.Initialize("TMT20II")
    TMT20II.Connect("192.168.0.100", 169, 0) '100=Printer address, 169=Port number (please look up port number)
End Sub

Sub TMT20II_Connected (Successful As Boolean)
    Log(Successful)
    If Successful Then
        AStreams.Initialize(TMT20II.InputStream, TMT20II.OutputStream, "AStreams")
        CallSub(Null, SendToPrinter)
    End If
End Sub

Sub SendToPrinter
    Dim SendMsg As String

    SendMsg = Chr(27) & Chr(61) & Chr(1) 'Select EPSON printer
    AStreams.Write(SendMsg.GetBytes("UTF8"))

    SendMsg = "Hello, this is a test print" 'Send this line to the EPSON printer
    AStreams.Write(SendMsg.GetBytes("UTF8"))

    SendMsg = Chr(27) & Chr(100) & Chr(2) 'Line feed
    AStreams.Write(SendMsg.GetBytes("UTF8"))

    SendMsg = Chr(27) & Chr(109) 'Partial cut receipt paper
    AStreams.Write(SendMsg.GetBytes("UTF8"))
End Sub

'You need to add more AStreams subs here.

Once connected to the printer, you can use AsyncStreams to send escape codes and data stream directly to the receipt printer over the LAN.

Please note: I have not actually done this before, but I can't see why the above code would not work. The code should work just fine IMO...

Ok . This sample printing Ok only latin characters but GREEK characters NO.
I try alls greek codepage programmatically but ...nothing

Any idea...?

 

[rboeck]

Hi, under http://support.epostraders.co.uk/support-files/documents/3/Ive-TM-T20_ConfigurationUtility.pdf
you find an utility for the printer; on page 32 is documented, how to change the standard code page; maybe it helps. The problem could be, that we internaly work with utf, the printer needs (probably) ansi codes.

 

[sakissoft]

I try alls greeks codepages with code from epson esc pos (pdf) but nothing. But i don't try with configuration utility. I try this
Thanks rboeck

 

[Peter Simpson]

@sakissoft have you tried changing the 'Page Code' in the printer...

 

[sakissoft]

OK
must Be Remove this :

SendMsg = Chr(27) & Chr(61) & Chr(1) 'Select EPSON printer
AStreams.Write(SendMsg.GetBytes("UTF8"))

and alls codepages (and GREEK) is worked !!

 

[Erel]

Note that these two lines are equivalent to:

AStreams.Write(Array As Byte(27, 61, 1))