Impresión automatizada

Tengo un script imp.vbs con:
if Wscript.arguments.count >0 then
Dim WordApp, Doc
Set WordApp = CreateObject("Word.Application")
Set Doc = WordApp.documents.open(Wscript.arguments.Item(0))
Doc.PrintOut 0
Doc.Close
WordApp.Quit
end if

para lanzar la impresión, hago en línea de comandos:
imp.vbs c:\test.rtf
(trabajo con archivos RTF que son más fáciles de modificar en PHP).

En teoría, desde PHP se podría lanzar vía exec('imp.vbs c:\test.rtf). Pero cuando Apache corre como servicio (en mi caso con WAMP) eso no funciona. He probado muchas cosas sobre la configuración del servicio, pero nada. La única forma por ahora es lanzar Apache en modo usuario. No es ideal para un servidor.

Y tú, ¿has encontrado algo?

Hola a todos, entiendo que este tema date pero me ha puesto en camino para escribir mi código. Preciso que soy principiante en Vbs.

Me gustaría montar un código que me permita

1. abrir un cuadro de diálogo que pregunte "¿el mes ha caducado por completo?". El mismo ofrecerá dos opciones: no y salimos del procedimiento o sí y lanzamos el procedimiento siguiente:

1.1 tengo un gráfico en un archivo de Excel (grap1.feuille1.xls)

1.2 quiero obtener este gráfico mediante un comando

1.3 quiero elegir la impresora CutePDF que imprimirá el gráfico

1.4 quiero guardar el PDF resultante de la impresión en un directorio muy específico (c:/repertoire-specifique)

No he hecho el punto 1

para el punto 1.1 en su lugar tomé la hoja (feuille.xls) porque no sé cómo dar la dirección del gráfico.

el punto 1.2 creo que está bien

el punto 1.3 me devuelve un error (xlApp.ActivePrinter="CutePDF Writer") no sé porqué

el punto 1.4, lo estoy pensando (una propuesta sería bienvenida)

Mi código:

Dim xlapp, classeur, feuille, Doc Set xlapp = CreateObject("Excel.Application") xlapp.Visible = True Set classeur = xlapp.Workbooks.add Set feuille = xlapp.ActiveSheet 'punto 1.1 Set Doc = xlApp.WorkBooks.open("C:\Documents and Settings\stagiaire\Bureau\feuille.xls") Aquí se define la impresora que se utilizará. xlApp.ActivePrinter="CutePDF Writer" Doc.PrintOut Doc.Close