Visual Basic - Codigo de Barra

Life is soft - evento anual de software empresarial
   
Vista:

Codigo de Barra

Publicado por talo (3 intervenciones) el 27/05/2008 03:18:43
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Codigo de Barra

Publicado por Jc (1 intervención) el 28/05/2008 18:06:01
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)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Codigo de Barra

Publicado por talo (3 intervenciones) el 03/06/2008 23:41:51
Hola,
con el codigo enviado, la impresora saca una etiqueta pero sale en blanco. que puede ser?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Codigo de Barra

Publicado por Talo (3 intervenciones) el 04/06/2008 00:08:19
Hola, podrias explicarme los parametros de las variables sWrittenData

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Codigo de Barra

Publicado por bangg (2 intervenciones) el 19/08/2008 18:10:42
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..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar