FoxPro/Visual FoxPro - Ayuda para mandar a imprimir con codigo en foxpro

 
Vista:

Ayuda para mandar a imprimir con codigo en foxpro

Publicado por jorge (7 intervenciones) el 03/09/2009 16:48:40
Hola tengo un programa para imprimir unas facturas de tamaño media carta aprox. , mi problema es que cuando termino de capturar y mandar a imprimir la factura si la manda pero no la imprime hasta que mande la segunda, es decir cuando mando la segunda imprime la tercera, cuando mando la tercera imprime la segunta, etc. el codigo lo tengo asi:

set device to print
set printer to

@ L,C SAY 'NOMBRE'
@ L,C SAY 'DIRECCION'
(SIGUEN VARIOS RENGLONES MAS)

eject page

si pongo solo eject (sin el page) me avienta una factura en blanco despues

el codigo lo hice hace muchos años, me funcionaba bien en windos98, pero cuando cambie a xp me empezo a hacer eso

Gracias
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

RE:Ayuda para mandar a imprimir con codigo en foxp

Publicado por andy (228 intervenciones) el 03/09/2009 16:57:24
Debes agregar a la ultima linea de tu programa:

SET PRINTER TO
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

RE:Ayuda para mandar a imprimir con codigo en foxp

Publicado por jose camilo (805 intervenciones) el 06/10/2017 04:43:30
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
Wprn = GETPRINTER()
 If Empty(Wprn)
    MessageBox('Impresion Cancelada!!!',16,'JJ-System')
    Return
 EndIf
 SET PRINTER To Name "&Wprn" FONT 'Courier New',12 
 SET DEVICE TO PRINTER
 SET CONSOLE OFF
 If M.Matricial ="S"
    ??? Chr(18)
    @Prow(),0 Say Chr(27)+"G"
 EndIf
 @Prow()+1,00 Say Replicate("-",80)
 @Prow()+1,10 Say "Codigo         :"
 @Prow()+1,10 Say "Nombre         :"
 @Prow()+1,10 Say "Apodo          :"
 @Prow()+1,10 Say "Cedula         :"
 @Prow()+1,10 Say "Direccion      :"
 @Prow()+1,10 Say "Telefono       :"
 
 
 SET PRINTER TO
 SET PRINTER OFF
 SET DEVICE TO SCREEN
 SET CONSOLE ON
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