Baskı Önizlemede Yazdırmama

[Ergün GÖKER]

Herkese iyi geceler. Forumda çok aramama rağmen istediğimi tam olarak bulamadım. Bulmama yardımcı olursanız çok sevinirim.
Yapmak istediğim excel de baskı önizleme yapabileyim ancak baskı önizleme durumunda hiçbir işleme yapamamayım sadece kapat özelliği açık olsun. Yani dosyayı yazdırmak için sadece Yazdır butonuna zorlamak istiyorum
Yazdır butonundada hangi sayfadan kaç adet basacağımı sorsun.
Böyle bir kod arıyorum.
İlgilenenlere şimdiden teşekkürler.

 

[Korhan Ayhan]

Aşağıdaki kod "Sayfa Yapısı" ve "Kenar Boşluklarını Göster" seçeneklerini pasif yapıyor.

Diğer seçeneklere sanırım müdahale edilemiyor. Belki Userform kullanılarak ekrana müdahale edilmesi engellenebilir.

Sub Makro()
    ActiveSheet.PrintPreview EnableChanges:=False
End Sub

 

[Ergün GÖKER]

Korhan hocam Uzerinde biraz calisip size donus yapacagim tesekkur ederim.