| Pregunta: | 47851 - CORTAR PAPEL EN IMPRESORA DE TICKET |
| Autor: | dlirio |
| Muy buenas, necesitaría enviar a una impresora de tickets Bixolon srp-350 el comando de control para el corte automático de papel.
Ya tengo una rutina desde VB .NET para imprimer pero no consigo mandar estos código. De la página del fabricante he conseguido bajarme un ejemplo de código pero está para VB 6.0 y utiliza la colección de impresoras por defecto y eso no me sirve en .NET Os copio el código por si os puede servir de ayuda para echarme una mano, bien migrando este código a .NET o bien dandome otra solución para enviar los código de control por el puerto paralelo a la impresora, muchas gracias por vuestra ayuda!! Private Sub Command1_Click() For Each prnPrinter In Printers If prnPrinter.DeviceName = "BIXOLON SAMSUNG SRP-350" Then Set Printer = prnPrinter Exit For End If Next Dim x As Byte Dim Counter As Byte Counter = 0 Printer.Font.Size = 9.5 Printer.FontName = "FontA1x1" Printer.Print "Cutting Test" Printer.Font.Size = 9.5 Printer.FontName = "FontControl" x = Text1.Text Counter = x If Counter > 0 Then For i = 1 To Counter Printer.Print "6"; Next End If Printer.Print "g" Printer.EndDoc End Sub | |
| Respuesta: | Javi ppp qqq |
| No se en vb.net, en vb2005, lo que tienes que hacer es indicar que se use la fuente "FontControl" a un tamaño de 9.5 y luego imprimir el caracter "P" con esa fuente. | |