Merhaba, aslında dosya olsaydı daha uygun çözümler üretilebilirdi ama basit bir örnek vereyim.
Sayfa1'e bir activex butonu yerleştirin ve butonun kod kısmına şu kodu ekleyin.
Kod:
Sub CommandButton1_Click()
ActiveWorkbook.Save
Sheets("Sayfa1").PrintOut
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.