RE:Cortar papel o ticket
Publicado por
Jair Caycho (1 intervención) el 19/08/2007 19:10:55
Hola Martin
En la parte final de este codigo se encuentra la instruccion de corte de papel. Espero te ayude.
Private Sub Form_Load()
Dim nf%
Dim RS$, Ofic$, Fech_hora$, Regi$, Codi_Gaf$, Codi_barr$
nf = FreeFile
Open "C:\prueba.txt" For Input As nf
Input #nf, RS, Ofic, Fech_hora, Regi, Codi_Gaf, Codi_barr
MSComm1.PortOpen = True
MSComm1.Output = Chr$(&H1D) + "h" + Chr$(50)
MSComm1.Output = Chr$(&H1D) + "H" + Chr$(2)
MSComm1.Output = Chr$(&H1D) + "f" + Chr$(1)
MSComm1.Output = RS + Chr$(0) ' <----- Razon Social
MSComm1.Output = Chr$(27) + Chr$(33) + Chr$(1)
MSComm1.Output = Ofic + Chr$(0) ' <----- Oficina
MSComm1.Output = Chr$(27) + Chr$(33) + Chr$(1)
MSComm1.Output = Fech_hora + Chr$(0) ' <----- Fecha + hora
MSComm1.Output = Chr$(27) + Chr$(33) + Chr$(1)
MSComm1.Output = Codi_Gaf + Chr$(0) ' <----- Codigo GAF
MSComm1.Output = Chr$(27) + Chr$(33) + Chr$(1)
MSComm1.Output = Chr$(&H1D) + "k" + Chr$(2)
MSComm1.Output = Codi_barr + Chr$(0) ' <----- Codigo de Barra
MSComm1.Output = Chr$(&HA)
MSComm1.Output = Chr$(&H1D) + "f" + Chr$(1)
MSComm1.Output = Chr$(&H1D) + "k" + Chr$(2)
MSComm1.Output = Codi_barr + Chr$(0) ' <----- Codigo de Barra
MSComm1.Output = Chr$(29) + Chr$(86) + Chr$(1) ' Corte de ticket
MSComm1.PortOpen = False ' cierra puerto serial
Close nf
Unload Me
End Sub
PD:
Estoy haciendo una aplicacion que imprime ticket con codigo de barra. Pero Tengo un problema. Todo el texto se sale junto:
ZONA REGISTRAL N° IX Sede LimaTramite documentario
Fecha : 05/01/2004 Hora : 08:35:58Nro. Registro :GAF
-TD-2004000016496595707379
Pero necesito que salga seteado:
ZONA REGISTRAL N° IX Sede Lima
Tramite documentario
Fecha : 05/01/2004 Hora : 08:35:58
Nro. Registro :
GAF-TD-2004000016
Estoy en la busqueda de la solucion. Sii sabes algo, please... Avisame.