how send Printer command to EPSON LQ-300+ from VB.NET

Question

0.00/5 (No votes)

See more:

VS2005

I have to send a priter command for changing font from VB.NET.
And i am using RawprinterHelperClass and sendstringtoprinter(printername,stringname) function to print a string.
I have Printer Command but i donot know to send it. Printer Command is

CSS

Font Selection
-----------------------------------------------------------------------------------
    ASCII       Dec Hex Description
-----------------------------------------------------------------------------------
    ESC k n     107 6B  Select Typeface
                    n=0: Roman      4: Script
                      1: Sans Serif        10: Roman T
                      2: Courier           11: Sans Serif H
                      3: Prestige
------------------------------------------------------------------------------------

Please help me

Posted 26-Sep-12 22:55pm

Shanmugam Vasu

Updated 26-Sep-12 22:56pm

v2

Add a Solution

1 solution

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

**Malli_S** · Accepted Answer · 2012-09-26T23:05:00

Solution 1

Have you tried OpenPrinter[^] and WritePrinter[^].

Check this[^]. There's a sample code available.

Posted 26-Sep-12 23:05pm

Malli_S

Comments

Shanmugam Vasu 27-Sep-12 5:13am

Thanks for your reply. I am using the same coding which you gave as sample code. I want to know string format for printer commands.
ex: s=chr(12) (for Form Feed) likely how i have to sent for changing font

Malli_S 27-Sep-12 5:23am

In that case you can create the byte stream of the command and send it.

Shanmugam Vasu 27-Sep-12 5:27am

Please guide me, how create and send bytestream for commands.

Malli_S 27-Sep-12 5:40am

From the above link use SendBytesToPrinter() function and specify the command string you want to send to the printer.

Shanmugam Vasu 27-Sep-12 6:11am

i am unable to get it, mycode is(to change the font to script)
s="ESC k 4"
RawPrinterHelper1.SendBytesToPrinter(pd.PrinterSettings.PrinterName, s, s.Length)

please Correct me

Malli_S 27-Sep-12 6:14am

what error you getting?

Shanmugam Vasu 27-Sep-12 6:20am

Invalidcastexception was unhandled:
Conversion from string "ESC k 4" to type 'Long' is not valid.

Malli_S 27-Sep-12 6:25am

You need to convert that string to byte array!!! And then pass the converted byte array to the function.

Shanmugam Vasu 27-Sep-12 6:42am

Yes i convert to byte but now also i am unable to get it.

s = "ESC k4"
Dim ba As IntPtr
ba = Marshal.StringToCoTaskMemAnsi(s)
RawPrinterHelper1.SendBytesToPrinter(pd.PrinterSettings.PrinterName, ba, s.Length)
I amn't sure about the printer command representation also(ESC k4)

Shanmugam Vasu 28-Sep-12 8:40am

Thanks for your Response., Finally i solved my problem., Decimal Value for ESC is 27.
Ex: for Changing font size 10cpi to 12cpi : s=chr(27) & chr(77)

how send Printer command to EPSON LQ-300+ from VB.NET

1 solution

Solution 1

Add your solution here

Preview 0

how send Printer command to EPSON LQ-300+ from VB.NET

1 solution

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us