buton yazdır

merhabalar, çok özür dileyerek bir soru sormak istiyorum. aşağıda bir kod yazdım ama istediğim gibi çalışmadı. Yardımcı olabilir misin rica etsem. İstediğim şey şu: SÖZLEŞME sayfasında B4 hücresi VAR ise SÖZLEŞME 2 KOPYA, başka bir şey ise SÖZLEŞME 2 kopya ve EK 1 KOPYA olarak yazdıracak. Yalnız...

Butonla yazdırma işlemini Sub Makro1() Private Sub CommandButton1_Click() Sayfa4.PrintPreview End Sub bu kodla hallediyorum ama 300 farklı sayfa var ve tek sayfada 300 farklı buton var örneğin 10. butona bastığımda excel deki 14. sayfa yazıyor. Ancak böyle olunca çok fazla satır yazılmış...