Question

我想知道是否有人知道如何使用Visual Basic 6连接到带有TCP / IP接口的热敏打印机。它是将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);

Answer 1

您需要使用套接字，最有可能通过VB附带的VB Winsock control。它远不是你现在所拥有的直接转换。

有关更多详细信息，请参阅MSDN中的Using Winsock control页面或在线tutorials各种内容。

如何在VB6中打开TCP / IP端口到打印机

1 个答案: