butonla tüm sayfaları yazdırma

[beatifulyoung]

ekteki dosyada sayfa 1 deki butona bastığımda tüm sayfalardaki çerçevelerin içinde kalan kısımları yazıcıdan çıktı alabilmemiz mümkünmü acaba?

 

[janveljan]

Sayfa1 deki command butonuna bu kodları ekleyip bunu yapabilirsiniz
Ancak yazdırmadan önce tüm sayfaları sığdırmanız lazım
Bunun içinde Sayfa1 de iken SHIFT tuşuna basıp Sayfa7 ye tıklarsanız bütün sayfalar seçilir ve yaptığınız tüm değişiklikler tüm sayfaları etkiler.

Private Sub CommandButton1_Click()
ActiveWorkbook.PrintOut
End Sub

 

[beatifulyoung]

Çok teşekkürler.