Impresion de Etiquetas

[juxodais]

Hola, espero me puedan ayudar, ahora traigo un problema con unas impresiones de etiquetas, tengo una impresora DATAMAX Class E y ando tratando de imprimir de manera continua en ella.

Ahorita estoy con pruebas, puedo imprimir dandole las coordenadas de lo que quiero que se imprimia en un tamaño especifico de etiqueta.

El problema que tengo que hacer es que necesito imprimir un listado de articulos de los cuales no se cuantos van a ser, pueden ser desde 2 hasta 130 y la empresa quiere utilizar papel continuo, no encuentro como hacer esto, puedo imprimir, siempre y cuando sepa la longitud de la etiqueta y que esta sea fija, para pasar los letreros con sus coordenadas correspondientes, pero en este caso el largo de la etiqueta varia, dependiendo del total de ingredientes.

Alguien sabe como poder imprimir de manera continua?? sin necesidad de especificar un tamaño a la etiqueta??

Estoy en VB6 ultilizando la API Win32

#If Win32 Then
Private Declare Function OpenPrinter& Lib "winspool.drv" _
Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, ByVal _
pDefault As Long)

Private Declare Function StartDocPrinter& Lib "winspool.drv" _
Alias "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
pDocInfo As DOC_INFO_1)

Private Declare Function StartPagePrinter& Lib "winspool.drv" (ByVal hPrinter As Long)
Private Declare Function WritePrinter& Lib "winspool.drv" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long)
Private Declare Function EndDocPrinter& Lib "winspool.drv" (ByVal hPrinter As Long)
Private Declare Function EndPagePrinter& Lib "winspool.drv" (ByVal hPrinter As Long)
Private Declare Function ClosePrinter& Lib "winspool.drv" (ByVal hPrinter As Long)
#End If

Esto se usa para imprimir por puerto LPT1

Saludos

[David]

¿Por qué no usas el objeto Printer?

[juxodais]

Porque necesito un manejo de la informacion a un nivel mas bajo pero ya lo solucione, por si a alguien se le ofrece...

hize como que un truco, cada renglon aproximadamente tiene una distancia de 20 puntos, entonces del listado de articulos los multiplico por 20 mas un 80 que esos ochenta son para un pie de pagina y un encabezado. Entonces con eso saco la longitudo maxima de la etiqueta que necesito y ya se la paso al encabezado asi,

strEtiquetaCompleta = STX & "M" & intContIng + 80 & vbCr & STX & DOBLEBUFFER & vbCr & STX & INICIOETQ & vbCr & DENSIDAD & vbCr & CALOR & vbCr & VELOCIDAD & vbCr & CANTIDAD & Format(1, "000") & vbCr

La clave aqui es el comando Mxxxx, que es el que marca la longitud de la etiqueta. Ya con esto solo voy generando el string con un ciclo y sumando la coordenadas en Y de 20 en 20, empezando el contador en 20, para ir pasando de renglon a renglon, en X las cordenadas son fijas, ya que todo debe de salir en la misma posicion en la etiqueta.


Saludos

[sidmizard]

Hola Compañero una pregunta, podrias pasarme el codigo que creaste para comunicarte con la impresora, recientemente compre una DataMax ST3210 pero no logro mandarle los parametros necesarios a la impresora para que me imprima etiquetas.

Mi correo es [email protected]

Saludos