yazdırma makrosu

[Hacı Bayram ÖZKAN]

akradaşlar ekdeki gibi bir tablom var, ben burda yazdırma yaparaken diyelim ki 4 satır yazdım sadece bu dört satırı yazdırmak istiyorum, veya 10 satır yazdım sadece bu yazılı olan 10 satırı yazdırmak istiyorum, yani alttaki cizgilerin yazılmasını istemiyorum. Yardımcı olursanız sevinirim. teşekkürler

 

[Orion1]

Dosyanız ektedir.

Sub yazdır()
ActiveSheet.PageSetup.PrintArea = "A1:L" & Cells(65536, "B").End(xlUp).Row
ActiveSheet.PageSetup.Zoom = 95
ActiveSheet.PageSetup.Orientation = xlLandscape 'Dikey yazdırmak=.Orientation = xlPortrait
ActiveSheet.PrintPreview
ActiveSheet.PageSetup.PrintArea = ""
End Sub

 

[Hacı Bayram ÖZKAN]

O çok hızlısınız hocam teşekkürler, tam istediğim gibi

 

[Orion1]

O çok hızlısınız hocam teşekkürler, tam istediğim gibi

Rica ederim.
İyi çalışmalar.

 

[Hacı Bayram ÖZKAN]

Evren hoca sizin bu kodu benim dosyama uygulayamadım bakarmısın

 

[Orion1]

Ekli dosyada aranan butonu için yazdım.Diğerleri için siz yazabilrisiniz.

 

[Hacı Bayram ÖZKAN]

Teşekkürler evren bey

 

[Orion1]

Teşekkürler evren bey

Rica ederim.

 

[cebelitarık]

Sayın Tarzanhaci
Dosyanızın kodlarını açarsanız bende kendi dosyalarım için faydalanabilirim.
Saygılarımla