Visual Basic - impresora fiscal Bixolon srp 350

Life is soft - evento anual de software empresarial
 
Vista:

impresora fiscal Bixolon srp 350

Publicado por Armando (2 intervenciones) el 18/10/2018 16:36:46
tengo un programa en VB 6.0 que imprime facturas en impresora BIXOLON 350 , necesito imprimir la fecha y hora en codigo de barras pero no se el codigo, alguien puede ayudarme?
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
Imágen de perfil de Andres Leonardo
Val: 3.856
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

impresora fiscal Bixolon srp 350

Publicado por Andres Leonardo (1759 intervenciones) el 18/10/2018 17:28:59
Hola ... como vas

Bueno no soy un experto ... pero .... yo lo que siempre recomiendo es utilizar un datareport
luego deberas bajar la FONT de codigo de barras que vayas a usar .. y lo ultimo solo es poner los datos en el campo respectivo para mandar a imprimir


lo de codigo de barras no es mas que un tipo de fuente donde formateas con dicha fuente un valor en este caso tu fecha numero.

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

impresora fiscal Bixolon srp 350

Publicado por Armando (2 intervenciones) el 18/10/2018 20:59:50
Muchas Gracias Andres, lo tendré en cuenta, pero fíjate que es una impresora fiscal y tiene unos códigos específicos para los efectos de impresión, usa FpCtrl.dll , la impresora no requiere estar instalada por windows
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

impresora fiscal Bixolon srp 350

Publicado por xavi (6 intervenciones) el 23/10/2018 11:51:27
Hola
Tal y como te dice Andrés es como yo lo hago

Tengo una fuenta de código de barras, puede ser code39.ttf, code128.ttf, por ejemplo

la llamas por programa
printer.fontname = "code39.ttf"
printer.fontsize = "20"
printer.print "123456"

Creo recordar que la fuenta code39 necesita poner asteriscos
"*123456*"
y si fuera una fuente code128, necesitar una rutina de calculo de dígito de control.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.856
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

impresora fiscal Bixolon srp 350

Publicado por Andres Leonardo (1759 intervenciones) el 23/10/2018 16:30:26
te podria hacer ahora yo una consulta ... respecto a algo ...

puesto que estoy hacindo algo para una impresora

pero mando a imprimir asi , perlo lo extraño es que debo poner la impresora como compartida ... sabes como podria hacer para evitar eso he puesto el bomnbre del puerto USB del puerto virtual pero ninguno me acepta

La tengo como una impresora generic text only

quedo agradecido

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Command3_Click()
Open "\\andres\EPSONTM" For Output As #1   ' donde andres es el nombre del pc
 
Print #1, Chr$(27); "@"; 'Initializes the printer (ESC @)
Print #1, Chr$(27); "a"; Chr$(1); 'Specifies a centered printing position (ESC a)
Print #1, Chr$(27); "!"; Chr$(0); 'Specifies font A (ESC !)
Print #1, "Fecha: " & Format(Date, "dd-MMMM-YYYY") & " Hora: " & Format(Time, "HH:MM:SS")
Print #1, Chr$(27); "d"; Chr$(3); 'Prints and 3 line feeding (ESC d)
Print #1, Chr$(27); "a"; Chr$(0); 'Selects the left print position (ESC a)
Print #1, Chr$(27); "F"; Chr$(1); 'Selects font B
Print #1, "TM-U210B $20.00"; Chr$(10);
Print #1, "TM-U210D $21.00"; Chr$(10);
Print #1, "PS-170 $17.00"; Chr$(10);
Print #1, Chr$(10); 'Line feeding (LF)
Print #1, Chr$(27); "!"; Chr$(17); 'Selects double-height mode
Print #1, "TOTAL $58.00"; Chr$(10);
Print #1, Chr$(27); "!"; Chr$(0); 'Cancels double-height mode
Print #1, Chr$(27); "a"; Chr$(2); 'Specifies a Full justification printing position (ESC a)
Print #1, "------------------------------"; Chr$(10);
Print #1, "PAID $60.00"; Chr$(10);
Print #1, "CHANGE $ 2.00"; Chr$(10);
'Print #1, Chr$(27); " r "; Chr$(1); "HOLA";
Print #1, Chr$(29); "V"; Chr$(66); Chr$(0); 'Feeds paper & cut
 
Close #1
End Sub
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