Aşağıdaki kodu yazdıracağınız sayfanın kod sayfasına kopyalayın. Kod A1 hücresine tıkladığınız anda sayfayı yazdıracaktır.
[vb:1:faaf1d7358]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Address = "$A$1" Then ActiveSheet.PrintOut
End Sub
[/vb:1:faaf1d7358]
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.