hücreye ''yazdır''köprü ekleme

[mustafaulkem]

exselde herhangi bir hücreye 'yazdır' komutu vermek istiyorum.

 

[Levent Menteşoğlu]

Sorunuzu biraz daha açarmısınız? hücreye tıklayınca yazdırsın anlamındamı soruyorsunuz?

 

[mustafaulkem]

evet .hücre tıklanınca ayarlı sayfa yada sayfanın tamamı yazdırılacak

 

[Levent Menteşoğlu]

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]