Impresora de ticket
Publicado por Mdavid (8 intervenciones) el 16/07/2010 03:03:06
Tengo problemas con papel de impresora de Ticket samsung Bixolon spr270, cada vez que corta el papel me jala mucho papel y se desperdicia... algun comando para que retroceda el papel..
favor su ayuda..
Ejemplo, este es parte del codigo que utilizo..
Printer.Print "Cliente: "; Trim(txtDatos(1))
Printer.Print "Cajero(a): "; gNombreUsuario & " "; Tab(26); "Fecha: "; DtpFecha.Value
Printer.Print " "
Printer.Print "Cant Descripcion Desc Valor"
Printer.Print "================== ================="
If GrillaAgregar.Rows > 1 Then
For i = 1 To GrillaAgregar.Rows - 1
With GrillaAgregar
Printer.Print Tab(5 - Len(.TextMatrix(i, 4))); CCur(.TextMatrix(i, 4)); Tab(7); Trim(.TextMatrix(i, 2)); Tab(29); .TextMatrix(i, 5); Tab(44 - Len(Format(.TextMatrix(i, 8), "###,##0.00"))); Format(.TextMatrix(i, 8), "###,##0.00")
End With
Next i
End If
Printer.Print " ========"
Printer.Print "Impuesto incluido"; Tab(44 - Len(FormatCurrency(txtDatos(6)))); FormatCurrency(txtDatos(6)); ""
Printer.Print " "
Printer.FontSize = 9
Printer.FontName = "FontControl"
Printer.Print "P" ' hace que corte el papel
Printer.EndDoc
Gracias de Antemano, agredere su ayuda.....
favor su ayuda..
Ejemplo, este es parte del codigo que utilizo..
Printer.Print "Cliente: "; Trim(txtDatos(1))
Printer.Print "Cajero(a): "; gNombreUsuario & " "; Tab(26); "Fecha: "; DtpFecha.Value
Printer.Print " "
Printer.Print "Cant Descripcion Desc Valor"
Printer.Print "================== ================="
If GrillaAgregar.Rows > 1 Then
For i = 1 To GrillaAgregar.Rows - 1
With GrillaAgregar
Printer.Print Tab(5 - Len(.TextMatrix(i, 4))); CCur(.TextMatrix(i, 4)); Tab(7); Trim(.TextMatrix(i, 2)); Tab(29); .TextMatrix(i, 5); Tab(44 - Len(Format(.TextMatrix(i, 8), "###,##0.00"))); Format(.TextMatrix(i, 8), "###,##0.00")
End With
Next i
End If
Printer.Print " ========"
Printer.Print "Impuesto incluido"; Tab(44 - Len(FormatCurrency(txtDatos(6)))); FormatCurrency(txtDatos(6)); ""
Printer.Print " "
Printer.FontSize = 9
Printer.FontName = "FontControl"
Printer.Print "P" ' hace que corte el papel
Printer.EndDoc
Gracias de Antemano, agredere su ayuda.....
Valora esta pregunta


0