imprimir varios archivos de word

[gabyzava]

Hola otra vez
Mil gracias por contestar

Es cierto que me equivoque al poner open y print,
sin embargo tampoco hace nada con open,

tengo un ciclo en que leo los nombres de varios archivos
y dentro del ciclo no funciona, solo funciona si mando
una instruccion.
por ejemplo:

primero pongo esta y si funciona:

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

pero si esta asi ya no hace nada

Código Delphi [-]
 
   for i:=1 to 100 do
    if archivos[i]<>'' then
    begin
      s:=archivos[i];
      ShellExecute(Handle, 'print', @s[1], nil, nil, 0);
    end;

¿Porque ShellExecute no funciona dentro de un ciclo?

que puedo hacer?

Gracias a todos