Hello Yuri,

Not quite there, but I think I can modify this technique to work.

Not very pretty though :)

Thanks

Bob

>Try this:
>
>....
>oShell = CreateObject("WScript.Shell")
>?ShellExecute(0, 'printto', FileName, '', 0, 1)
>
>wait wind time 2.0 &&wait for Print dialog appearance
>
>IF oShell.AppActivate("Print")
> oShell.SendKeys("%FP")
> oShell.SendKeys("{TAB 2}{ENTER}")
>endif
>
>oShell=.null.
>
>
>>Hello Yuri,
>>
>>Still brings up dialog using your example
>>
>>Bob
>>
>>>Try this:
>>>*PrinterName = getprinter()
>>>?ShellExecute(0, 'printto', FileName, '"'+PrinterName+'"', 0, 1)
>>>
>>>>Hello All,
>>>>
>>>>I use ShellExecute to print a HTML file using the following syntax
>>>>
>>>>=Shellexecute(0,"Print",cFileName,"","",1)
>>>>
>>>>Can anyone tell me how to suppress the printer dialog box and just send it to the default printer??
>>>>
>>>>Thanks in advance
>>>>
>>>>Bob