Otomatik Print Kodu

[nihatkr]

Excelde 42 sayfalık bir dosyam mevcut.
Bu sayfalardan birinde 41 sayfanın özet tablosu mevcut.
Bu sayfaya girdiği anda çalışan makro bittikten sonra otomatik seçili alanı print etme kodunu vermeniz mümkünmüdür.

Şimdiden teşekkür ediyorum

 

[Necdet]

Merhaba,

Activesheet.PrintOut

olabilir kontrol etmeden yazdım.

 

[nihatkr]

teşekkürler hocam.

 

[nihatkr]

Merhaba,

Activesheet.PrintOut

olabilir kontrol etmeden yazdım.

Hocam tekrar teşekkür ederim.

Bunu Evet-Hayır seçenekli yapabilirmiyiz.

 

[Necdet]

Merhaba,

Sheets("Sayfa1").PrintOut gibi de kullanılabilir.

Sub bas()
Evet = Application.InputBox("Liste almak İstiyor Musunuz? E/H", "Liste Alma", "H", Type:=2)
If Evet = "e" Or Evet = "E" Then ActiveSheet.PrintOut
End Sub

 

[nihatkr]

Merhaba,

Sheets("Sayfa1").PrintOut gibi de kullanılabilir.

Sub bas()
Evet = Application.InputBox("Liste almak İstiyor Musunuz? E/H", "Liste Alma", "H", Type:=2)
If Evet = "e" Or Evet = "E" Then ActiveSheet.PrintOut
End Sub

Teşekkür ediyorum. Necdet Hocam. Uygalandı ve çalıştı.

Saygılar.