我想知道是否有人知道如何使用 Visual Basic 6 连接到带有 TCP/IP 接口(interface)的热敏打印机。它是向打印机发送 ESC/POS 命令,这样我就可以直接控制它而无需使用司机。
问题在第一行;我如何与打印机建立连接并提供打印机的 ip 和其他东西,以便主机 pc/发件人 pc 与打印机顺利通信?
open
PRINT #1, CHR$(&H1B);"@"; 'Initializes the printer (ESC @)
PRINT #1, CHR$(&H1B);"a";CHR$(1);'Specifies a centered printing position (ESC a)
PRINT #1, CHR$(&H1B);"!";CHR$(0); 'Specifies font A (ESC !)
PRINT #1, "January 14, 2002 15:00";
PRINT #1, CHR$(&H1B);"d";CHR$(3); 'Prints and 3 line feeding (ESC d)
PRINT #1, CHR$(&H1B);"a";CHR$(0); 'Selects the left print position (ESC a)
PRINT #1, CHR$(&H1B);"!";CHR$(1); 'Selects font B
PRINT #1, "TM-U210B $20.00";CHR$(&HA);
PRINT #1, "TM-U210D $21.00";CHR$(&HA);
PRINT #1, "PS-170 $17.00";CHR$(&HA);
PRINT #1, CHR$(&HA);'Line feeding (LF)
PRINT #1, CHR$(&H1B);"!";CHR$(17); 'Selects double-height mode
PRINT #1, "TOTAL $58.00"; CHR$(&HA);
PRINT #1, CHR$(&H1B);"!";CHR$(0); 'Cancels double-height mode
PRINT #1, "------------------------------";CHR$(&HA);
PRINT #1, "PAID $60.00";CHR$(&HA);
PRINT #1, "CHANGE $ 2.00";CHR$(&HA);
PRINT #1, CHR$(&H1D);"V";CHR$(66);CHR$(0); 'Feeds paper & cut
’Drawer Kick (ESC p)
PRINT #1, CHR$(&H1B); CHR$(&H70); CHR$(&H0); CHR$(60); CHR$(120);
最佳答案
您需要使用套接字,很可能是通过 VB Winsock control VB自带的。不过,这远非您现在所拥有的直接转换。
参见 Using Winsock control MSDN 或各种页面 tutorials在线了解更多详情。
关于vb6 - 如何在 VB6 中打开打印机的 TCP/IP 端口,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11578890/