Something like:

=adir(ahtm, "*.htm")
for ia=1 to alen(ahtm,1)
lccom="run Print "+fullpath(ahtm[ia,1])
&lccom
endfor

Or:

DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
for ia=1 to alen(ahtm,1)
? ShellExecute(0,"open","print", fullpath(ahtm[ia,1]),"",0)
endfor

>I have six hundred Html to print.So i need to print them programmly and don't show me the print dialog.
>
>Can anybody help?