Yazdırma

[aksoy53]

Forumda araştırdim ama kendimce uyarlayamadım ekte gönderdiğim A-M sütünları arasında ne kadar ekleme yaparsam yazdır o alanı yazdırmasını istiyorum

ekledikce dolu alanları 50 yada 200 ekleme yapılabilir sadece eklenen alanın yazdırılması makrosunu istiyorum

yardım yapabilcek kişilere şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Yazdir()
    
    Dim sat As Long
    
    sat = [A:M].Find("*", , , , xlByRows, xlPrevious).Row
 
    ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & sat
    ActiveSheet.PrintOut
    
End Sub

.

 

[aksoy53]

Ömer Bey çok teşekkür ederim çok makbule geçti

 

[Mahmut Bayram]

Tavsiye:
Sayfa yapısı ayarlarından da resimdekileri seçin, tek sayfada yazdırmak için.

 

[BedriA]

Hocam bu kod çalışıyor ancak YAZDIR dedikten sonra diyelim ki vazgeçtik. Bu durumda "İptal" deyince "WorkSheet sınıfının PrintOut yöntemi başarısız" hatası veriyor.

 

[Ömer]

Bu şekilde deneyin.

Sub Yazdir()
    
    Dim sat As Long
       
    On Error GoTo atla
    sat = [A:M].Find("*", , , , xlByRows, xlPrevious).Row
 
    ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & sat
    ActiveSheet.PrintOut
atla:
    Exit Sub
    
End Sub

Not: Deneme yapmadım.

.