Liste Kutusunu Toplu Yazdırma

[santana555]

Elimdeki liste kutusundaki 30 tane ayrı sayfayı tek tıklamayla yazdırmak istiyorum.Makro ile olabilir veya başka yolu var mıdır. Mümkün müdür acaba, yardımcı olursanız sevinirim.
Dosya linki aşağıdadır.

http://s2.dosya.tc/server4/jsxt2i/Ornek.rar.html

 

[Asri]

Bu kodu sayfanızın modul1 ine yapıştırın.
Varsayılan yazıcıya tüm sayfaları yazdıracaktır.

Sub yazdir()
  Sheets("9HFTDEĞ").Select
  ActiveSheet.PageSetup.PrintArea = "A1:H37"
  For i = 1 To 30
     [j1] = i
     ActiveSheet.PrintOut Copies:=1
  Next i
End Sub