excel aktif çalışılan sayfadayken yazdırma

[modoste]

merhaba sayın hocalarım
30 dakika kadar aktif sayfada yazdırma işlemini butona atayarak hangi çalışma sayfamda isem belirlenmiş sayfa sonum varken yazdırma işlemini öğrenmeye çalıştım ama bir türlü yapamadım
aktif x denetimlerinde kutu ekledim adını editle düzellttim çift tıkladım kod açıldı ama solda uzun Properties Command button açılmadı ordan PrintObjects deki true yi false yaptım ama o pencereye başka bir şekilde ulaşıp yaptım.
Fiş.printOut copies:=1 işlemlerini yaptım ama bir türlü çalışmadı. (basit bişe gibi ama böyle yapamayınca çok darlanıyorum videolardanda takip ediyorum ama olmuyo)

şu an için çalıştığım sayfada aktif 4 sekmem var diyelim nasıl bir kod yazılmalı ki ben hangi sekmede çalışıyosam orda "YAZDIR" butonu olsun ve print işlemimi hızlı yapayım.

 

[Seyit Tiken]

Çift Tıklama :
Aşağıdaki kodu, Çalışma Kitabına kopyalayarak deneyiniz.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveSheet.PrintOut
End Sub

 

[Cengiz Demir]

Bu kodu personal.xlsm yada personel.xls (Kişisel çalışma kitabı) modulüne ekleyin.

Daha sonra excelde düğmelerin bulunduğu şeridin üzerine gelip, sağ klik ile hızlı erişim araç çubuğunu özelleştiri seçin.

Ordan buradaki komutlardan seçim yap kutucuğundan makroları seçin ve personal.xlsm yazdir makrosunu seçip ekleyin.
Sağ altta değiştir düğmesini seçip istediğiniz ikonu atayın.
Excelden çıkın. kişisel çalışma kitabındaki değişikikler kaydedilsin mi sorusuna tamam diyin.
Exceli açtığınızda hızlı araç seçim şeridine eklediğiniz düğme ile bulunduğunuz sayfayı yazıcıya gönderebilirsiniz.

Sub yazdir()

ActiveSheet.PrintOut Copies:=1

End Sub


Ek: ben yazarken seyit hocam da göndermiş. Onun da ellerine sağlık

 

[modoste]

Seyit Tiken hocam kodu yazdım
aktif saydayım yazdır ile ilgili bir buton yada bişe olmadı

 

[YUSUF44]

Bunun için excelin mevcut şerit düğmesi özelliğini kullanabilirsiniz:

 

[Seyit Tiken]

Her hangi bir hücreye Çift tıklarsanız yazdırma işlemi gerçekleşir.