Visual Basic - Cortar papel o ticket

Life is soft - evento anual de software empresarial
 
Vista:

Cortar papel o ticket

Publicado por Carlos (7 intervenciones) el 22/06/2007 15:45:14
Hola... Les realizo la siguiente consulta...
Tengo una aplicacion en VB6 que imprime tickets en una impresora o ticketeadora Epson TM U300A.
Para realizar esta impresion, utilizo el objeto Print de VB6.
La unico que me queda pendiente es el corte de papel al final.
Alguien sabe como se hace...?
Desde ya gracias por su atencion y saludos...!!!
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:Cortar papel o ticket

Publicado por Martin (17 intervenciones) el 22/06/2007 17:46:21
Hola,lo unico que te puedo comentar es que cada impresora tiene sus propios comandos para dicho corte,son una serie de numeros que deben de venir junto con el manual de la misma,seria cuestion que lo localices y que mediante el software lo mandes activar cuando sea necesario.

saludos....
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: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.
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