imprimir varios archivos de word

[ecfisa]

Hola.

A ver... no entiendo algunas cosas:

Necesito saber como imprimir varios archivos de word

Las líneas que adjuntas, te abriran el archivo especificado en la variable 's' con el editor asociado pero no lo imprimirán en forma directa.

Si lo que buscas es imprimir te pongo un ejemplo de como sería:

Código Delphi [-]
...
  s:= 'C:\ARCHIVO.TXT';
  ShellExecute(Handle, 'print', @s[1], nil, nil, 0);  
...

No sé si funciona con Word, en principio por que uso LibreOffice. Tendrías que revisar si hay que pasarle algún argumento para que lo haga.

si la instrucción es una vez si funciona, pero varias veces ya no hace nada.

Por otra parte el código

Código Delphi [-]
...
 s:= 'C:\apuntes1.doc';
 ShellExecute(Handle, 'open', @s[1], nil, nil, 0);
 s:= 'C:\apuntes2.doc';
 ShellExecute(Handle, 'open', @s[1], nil, nil, 0);
 s:= 'C:\apuntes3.doc';
 ShellExecute(Handle, 'open', @s[1], nil, nil, 0);
...

funciona correctamente, te abrirá tres instancias distintas del editor asociado.

Un saludo.