html uzantılı dosyaları toplu yazdırma

[tahsinanarat]

Alt klasörlerde bulunan html uzantılı dosyalar;
D sürücüsünde klasör içinde bulunan diğer klasördeki html uzantılı dosyaların hepsini bir seferde yazdırmak istiyorum.
Örnek dosyayı ekte gönderiyorum, ilgilenecek arkadaşlarıma teşekkür ederim.

 

[tahsinanarat]

Konu güncel, bu konu hakkında bilgisi olan arkadaşlardan yardım bekliyorum.

 

[Zeki Gürsoy]

[SIZE=2]Set sh = CreateObject("Shell.Application")

p = "c:\docs\"

d = Dir(p & "*.html")

Do While d <> ""
    sh.ShellExecute p & d, "print"
    d = Dir
Loop[/SIZE]

 

[tahsinanarat]

Sn. Zeki hocam cevabınız içi çok teşekkür ediyorum, kodu çalıştırdığımda klasör içindeki bütün dosyaları IE ile açıyor, ancak yazdırmıyor.
Bilgilerinize.