Thanks for sharing, I'm sure there are others with the same issue who
could use your code.

--JP

On Mar 25, 8:53*pm, "Henk Pols" wrote:
JP Thanks for your input, however I have already solved the issue.
For you info I use the following code:
* * * * * * Case "bmp", "jpg", "tif":
* * * * * * * * Dim PCmd, objShell, oExec
* * * * * * * * Dim Printer As String

* * * * * * * * Printer = GetDefaultPrinter * * ' Own declared Function
* * * * * * * * PCmd = "rundll32 shimgvw.dll,ImageView_PrintTo /pt """ &
FileName & """ """ & Printer
* * * * * * * * Set objShell = CreateObject("Wscript.Shell")
* * * * * * * * Set oExec = objShell.Exec(PCmd)

* * * * * * * * Do While oExec.Status = 0
* * * * * * * * * * WScript.Sleep 100
* * * * * * * * Loop
* * * * * * * * ' Clean up
* * * * * * * * Set oExec = Nothing
* * * * * * * * Set objShell = Nothing
Henk.