Usar el corte de Imprensora

antonio2005pe · #1 (**permalink**) 03/12/2006, 15:05

Hola a todos kisiera saber si alguien me pudiera ayudar con el corte de la imprensora TMU-220A(Epson) papel en rollo
Normalmente lo uso asi

printer.print "Dato1"
printer.print "Dato2"
Printer.EndDoc '<<<<<<<<<<<<aki me imprime los datos y me corta el papel normalmente

pero yo kiero usar el codigo

Print #Linea "Datos"
Close #Linea '<<<<<<<<<<<<<me imprime pero no me corta el papel

hay algun codigo k me permita cortar el papel?

Gracias...

davidperu · #2 (**permalink**) 14/12/2006, 09:16

usa el metodo newpage del objeto printer y listo

elmonje · #3 (**permalink**) 16/12/2006, 18:30

Hola para las impresoras de ticket, hay codigos ascii que le envias a la impresora, estan en el manual de la printer.

Saludos.

Korku · #4 (**permalink**) 08/01/2007, 11:33

Hola,

Código:

 
Open "lpt1:" For Output As 1 
'abre cajón 
Print #1, Chr$(&H1B); Chr$(&H70); Chr$(&H0); Chr$(60); Chr$(120); 
'imprimir logo de la memoria impresora
Print #1, Chr$(28); Chr$(112); Chr$(1); Chr$(0); Chr$(48); 
'imprime y avanza 3 líneas, para más líneas sustutir Chr$(&H3) por 
Chr$(&HX) siendo X un valor númerico 
Print #1, Chr$(&H1B); Chr$(&H64); Chr$(&H3); 
'corta papel 
Print #1, Chr$(29) + Chr$(86) + "0" 
Close 1 
DoEvents

Con este código, he probado con varias impresoras térmicas y funciona a la primera

Un saludo

Korku · #5 (**permalink**) 08/01/2007, 11:43

Otra cosa, también cada impresora tiene una fuente de letra especial... como el caso de las impresoras Bixolon es "FontControl", cada letra es una orden

Yeveran · #6 (**permalink**) 23/02/2008, 05:12

¿Alguien sabe como configurar los márgenes de papel con una impresora térmica SAMSUNG SRP-350?

Thanks!!