Ver Mensaje Individual
  #3 (permalink)  
Antiguo 07/12/2007, 11:29
SinNombre
 
Fecha de Ingreso: septiembre-2007
Mensajes: 51
Antigüedad: 17 años, 6 meses
Puntos: 0
Re: Confirguracion de Impresora mediante VB6.0

Hola Culd...
La impresora es para imprimir etiquetas con codigo de barras, es una impresora termica, el modulo que estoy programando es para imprimir unas etiquetas mas pequeñas que el modelo estandar que se utiliza en nuestra empresa, lo que necesitamos es que si se requiere imprimir etiquetas grandes, solo sea necesario cambiar fisicamente el rollo de etiquetas en la impresora o vs. Y que el sistema cambie la configuracion de la impresora para que se ajuste a las etiquetas,
Al procedimiento le mando como parametro el numero de etiquetas a imprimir (entre otros parametros).

Probare con ese objeto.
El codigo que utilizo para las etiquetas chicas dentro de un ciclo For es el sig:

Dim f as Integer
f=FreeFile()
Open "LPT1" for OutPut as #f

For i = 1 To vlNumEtiq
Print #f, "N"
Print #f, "A25,25,0,3,1,1,N,""LOTE"""
Print #f, "A75,25,0,3,1,1,N,""" & vlLote & """"
Print #f, "A212,25,0,1,1,1,R,""TIF 99"""
Print #f, "A35,70,0,3,1,1,N,""CONSUMASE FRESCO"""
Print #f, "A20,100,0,3,1,1,N,""ANTES DE " & vlFechCad & """"
Print #f, "A35,145,0,1,1,1,N,""Puede Congelarse hasta"""
Print #f, "A35,165,0,1,1,1,N,""150 dias para su consumo"""
Print #f, "P1"
Next