COMANDO DE IMPRESSAO - CODIGO DE BARRAS VB6/EPSON

BISSOLI 28/03/2011 10:37:00
#369419

Bom dia meus caros,

Estou tentando enviar um comando para a impressora matricial EPSON LX-300 para imprimir código de barras com sua fonte nativa 128C, pela documentação que localizei, seria:


Dim lReturn As Long
Dim lpcWritten As Long
Dim s1 as String

s1 = Chr(27) + Chr(40) + Chr(66) + Chr(51) + Chr(0) + Chr(6) + Chr(1) + Chr(0) + Chr(21) + Chr(0) + Chr(3) + Chr(67) + [Ô]35060833009911030631550130000010604336862016[Ô]
lReturn = WritePrinter(lhPrinter, ByVal s1, Len(s1), lpcWritten)

Porém no lugar de código de barras, a impressora imprime somente os seguintes caracteres:

3$C35060833009911030631550130000010604336862016



WritePrinter(lhPrinter, ByVal s1, Len(s1), lpcWritten)