Aslında koddaki her yazdırma için exceli açtırıp kapatmaya gerek yok lakin donup kaldığı için böyle yaptım.Normalde bir kere Excel açılıp ilgili sayfalar ilgili yazıcıdan çıkarılır.Deneyin kod doğru çalışıyorsa onuda hallederiz.

En sona eski default printeri yapmayı unutmuşum.

Call yazan yerdeki end subun üst satırına 

SetDefaultPrinter " " boşluk yerine standat yazıcı adı ekleyin.