Visual Basic - imprimir en una etiquetadora

Life is soft - evento anual de software empresarial
   
Vista:

imprimir en una etiquetadora

Publicado por JesusC (3 intervenciones) el 29/06/2015 22:56:46
tengo el siguiente codigo en Basic para imprimir en una etiquetadora, es el ejemplo que pone el fabricante, como puedo llevar esto a VB, el codigo es

10 E$=CHR$(27)
20 WIDTH “LPT1”255
30 LPRINT E$;"A"; LPT1
40 LPRINT E$;"H400";E$;"V100";E$;"WL1SATO";
50 LPRINT E$;"Q1";
60 LPRINT E$; “Z”;
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

imprimir en una etiquetadora

Publicado por Andres Leonardo (702 intervenciones) el 30/06/2015 15:38:46
Amigo disculpa y cual es el texto qeu quieres imprimir con eso ...

10 E$=CHR$(27)
20 WIDTH “LPT1”255
30 LPRINT E$;"A"; LPT1
40 LPRINT E$;"H400";E$;"V100";E$;"WL1SATO";
50 LPRINT E$;"Q1";
60 LPRINT E$; “Z”;

Y cual es la salda???
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

imprimir en una etiquetadora

Publicado por JesusC (3 intervenciones) el 01/07/2015 13:46:09
amigo gracias por responder, este es el codigo en Basic que ofrece el fabricante de la etiqueteadora marca Sato CX-400 en realidad este solo imprime "Sato" en una etiqueta, lo demas es para mandar los formatos de letra, y
posicion del texto etc, eso mas o menos lo entiendo, el caso seria que funcion en Visual Basic es equivalente a LPRINT en BASIC, gracias por la colaboracion
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
Imágen de perfil de Andres Leonardo

imprimir en una etiquetadora

Publicado por Andres Leonardo (702 intervenciones) el 01/07/2015 18:46:44
Listo ahora pregunto como esta conectada la Etiquetadora?? es como una impresora? esta conectada al usb??
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

imprimir en una etiquetadora

Publicado por JesusC (3 intervenciones) el 02/07/2015 01:30:13
como una impresora por el puerto LPT1 fijese en el codigo en BASIC
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
Imágen de perfil de Andres Leonardo

imprimir en una etiquetadora

Publicado por Andres Leonardo (702 intervenciones) el 02/07/2015 03:48:55
Intenta con esto ..pon esto en un boton..


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
dim   FreeFile = 1  as integer
Open LPT1 For Output As 1
Print 1, "SATO"
Close 1
 
me avisas como te sale...
Si no usa esto..
.
Dim ESC As String
Dim EnfatizadoON As String
Dim EnfatizadoOFF As String
Dim CondensadoON AS String
Dim CondensaoOFF As string
 
ESC = Chr(27)
EnfatizadoON = ESC & "E"
EnfatizadoOFF = ESC & "F"
 
Open "LPT1:" For Output As #1
Print #1, "Este es un texto normal. ";
Print #1, EnfatizadoON & "Texto enfatizado. " & EnfatizadoOFF;
Print #1, "De nuevo, texto normal"
Print #1, "Texto normal. ";
Print #1, CondensadoON & "Texto condensado. " & CondensadoOFF
Print #1, "Ahora, texto normal"
Close #1
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