Visual Basic - Codigo de Barra

Hola, tengo una rutina hecha para una impresora zebra TLP 3842, ahora compraron una impresora Zebra S4M y no me funciona el codigo que ocupaba anteriormente. Alguine tiene experiencia con la impresora Zebra S4M.
Gracias

Hola,

Yo tengo 2 impresoras Zebra S4M, te anexo un pequeño codigo de como lanzar una impresion incluyendo codigo de barra, te imprime en codigo el numero 12345678, le impresora en este caso se debe llamar "Labels", pero puedes renombrar con el nombre que tu tengas.

Dim lhPrinter As Long
Dim lReturn As Long
Dim lpcWritten As Long
Dim lDoc As Long
Dim sWrittenData As String
Dim MyDocInfo As DOCINFO

lReturn = OpenPrinter("label", lhPrinter, 0)

If lReturn = 0 Then
MsgBox "La impresora no esta instalada." & vbCr & _
"Debe nombrar la impresora como 'Labels'"
Exit Sub
End If

MyDocInfo.pDocName = "CodeBar"
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = vbNullString

lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)

Call StartPagePrinter(lhPrinter)

sWrittenData = "^XA"
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)

sWrittenData = "^B3N,N,70,Y,N"
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)
sWrittenData = "^Fo520,300^FD" & "12345678" & "^FS"
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)

sWrittenData = "^Fo130,500^A0,32,40^FD" & "Ejemplo de impresion" & "^FS"
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)

sWrittenData = "^Fo400,500^A0,32,40^FD" & "Codigo de Barra" & "^FS"
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)

sWrittenData = "^XZ"
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)

lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)

Hola,
con el codigo enviado, la impresora saca una etiqueta pero sale en blanco. que puede ser?

Hola, podrias explicarme los parametros de las variables sWrittenData

Gracias

Hola las variables sWrittedata es el codigo zpl de la impresora...

si alguien tiene algo como para visualiozar el codigo de barra antes de imprimir se lo
agradecere..