Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   html uzantılı dosyaları toplu yazdırma (http://www.excel.web.tr/showthread.php?t=170389)

tahsinanarat 07-02-2018 20:11

html uzantılı dosyaları toplu yazdırma
 
1 Eklenti(ler)
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 08-02-2018 19:49

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

Zeki Gürsoy 08-02-2018 21:17

Kod:

Set sh = CreateObject("Shell.Application")

p = "c:\docs\"

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

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


tahsinanarat 09-02-2018 09:34

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.


Saat 16:08

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.