problemas al imprimir los resultados de las variables
Publicado por many (127 intervenciones) el 08/05/2014 19:49:31
Saludo a todos:
Mi problema,
Tengo un sistema hecho en foxpro 2.6 y este imprime etiquetas para los articulos (codigos de barras).
Ahora tengo un sistema en visual foxpro 9 y tome el procedimiento para imprimir etiquetas pero en visual no me funciona, aquí solo imprime el codigo fuente y debe imprimir los resultados de las variables siguientes:
m.codigo
m.descripcion
m.precio
etc.
el printer es: LP 2842 PLUS
este es el codigo:
**********************************************
Pense que al pasarlo a visual foxpro todo funcionaria bien y ahora estoy bien apurado por el tiempo
Diganme algo por favor, de todos modos sigo trabando en esto.
gracias a todos
Mi problema,
Tengo un sistema hecho en foxpro 2.6 y este imprime etiquetas para los articulos (codigos de barras).
Ahora tengo un sistema en visual foxpro 9 y tome el procedimiento para imprimir etiquetas pero en visual no me funciona, aquí solo imprime el codigo fuente y debe imprimir los resultados de las variables siguientes:
m.codigo
m.descripcion
m.precio
etc.
el printer es: LP 2842 PLUS
este es el codigo:
**********************************************
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
m.codigo = UPPER(ALLTRIM(thisform.codigo.value))
m.descrip = UPPER(ALLTRIM(thisform.descrip.value))
m.cantidad = ALLTRIM(STR(thisform.cantidad.value))
m.precio = ALLTRIM(STR(thisform.venta.Value,10,2))
SET PRINTER TO LPT1
thisform.inITPRINT.Click ( llama algo que esta al final, pero es el contenido de boton solo lo pegue para aclarar)
SET DEVICE TO PRINTER
?'q288'
?'Q152,40'
?'N'
?'ZT'
?"A25,00,0,1,1,2,N,"+'"'+" TITULO"+'"'
*?"A80,22,0,1,1,1,N,"+'"'+"TEL.E"+'"'
?"B60,35,0,1,2,3,35,B,"+'"'+M.CODIGO+'"'
?"A25,98,0,1,1,1,N,"+'"'+M.DESCRIP+'"'
?"A25,116,0,3,1,1,N,"+'"'+M.PRECIO+'"'
?"P"+M.CANTIDAD
?'FK'+'"'+"*"+'"'
thisform.finprint.click ()
MESSAGEBOX("Proceso Exitoso")
thisform.codigo.SetFocus
**********************************************
initprint
Set Device To Printer
Set Print On
Set Console Off
finprint
Set Print Off
Set Device To Screen
Pense que al pasarlo a visual foxpro todo funcionaria bien y ahora estoy bien apurado por el tiempo
Diganme algo por favor, de todos modos sigo trabando en esto.
gracias a todos
Valora esta pregunta
0