¿Has impreso documentos de Word desde VFP?
Hola, buen día, me gustaría saber si alguna vez has impreso documentos de Word desde VFP, actualmente lo hago, pero imprimo el documento completo, sabes como puedo enviar a impresión solo algunas hojas, te lo agradecería mucho, estoy detenido en esto desde hace varios días...
Gracias, Paco.
Gracias, Paco.
2 respuestas
Respuesta de Víctor Arturo Mercado Fernández
1
Prueba:
m.oWord=CREATEOBJECT("word.application")
WITH m.oword
. Documents.Open("prueba.doc")
. PrintOut(.T.,,,,,,, Copias, Hojas)
&&Ojo con las comas
Endwith
Copias: Opcional. Número de copias que va a imprimirse.
Hojas: Opcional. Números e intervalos de página que deben imprimirse, separados por comas. Por ejemplo, con "2, 6-10" se imprimiría la página 2 y de la página 6 a la 10.
m.oWord=CREATEOBJECT("word.application")
WITH m.oword
. Documents.Open("prueba.doc")
. PrintOut(.T.,,,,,,, Copias, Hojas)
&&Ojo con las comas
Endwith
Copias: Opcional. Número de copias que va a imprimirse.
Hojas: Opcional. Números e intervalos de página que deben imprimirse, separados por comas. Por ejemplo, con "2, 6-10" se imprimiría la página 2 y de la página 6 a la 10.
Hola, gracias por molestarte en revisar mi pregunta, ¿sabes?, si puedo controlar el numero de copias con la solución que me diste, pero aun no puedo controlar cuales hojas deseo imprimir, ya cree una variable de nombre "HOJAS" y le asigne lo siguiente : (HOJAS ="1,3") esperando que solo imprima las hojas 1 y 3, pero no lo hace, imprime el documento completo, también hice lo siguiente: .PrintOut(.t.,,,,,,, 1,"1,3"), pero así no envía nada a impresión, disculpa de nuevo la molestia, pero pensé que tal vez tu ya sabrías resolver esto, gracias, Paco.
Perdón, la línea de impresión debe de quedar:
. PrintOut(.T.,, 4,,,,, Copias, Hojas)
El 4 corresponde a la constante WdPrintOutRange de WordBasic que permite imprimir rangos de hojas, la variable Hojas es una cadena de caracteres y se declara como lo estás haciendo, si deseas imprimir un rango de hojas, puedes poner:
Hojas = "1,3,5-9"
para imprimir las hojas 1, 3, 5, 6, 7, 8 y 9
Si hay otro problema, con gusto trataré de solucionarlo.
. PrintOut(.T.,, 4,,,,, Copias, Hojas)
El 4 corresponde a la constante WdPrintOutRange de WordBasic que permite imprimir rangos de hojas, la variable Hojas es una cadena de caracteres y se declara como lo estás haciendo, si deseas imprimir un rango de hojas, puedes poner:
Hojas = "1,3,5-9"
para imprimir las hojas 1, 3, 5, 6, 7, 8 y 9
Si hay otro problema, con gusto trataré de solucionarlo.
Respuesta de jcasaln
1
En la siguiente dirección:
http:// davphantom.cjb.net/
Acabo de fijarme hay un ejemplo para mandar trabajos a Word, tal como lo necesitas.
http:// davphantom.cjb.net/
Acabo de fijarme hay un ejemplo para mandar trabajos a Word, tal como lo necesitas.