tabloda dolu satırları yazdırmak

[hilmi]

ekteki dosyaya açıklamaya çalıştım.
makro ile a sütunu na göre dolu olan son satıra kadar yazdırmak istiyorum.Varsayılan değilde seçebilceğim bir yazıcıdan çıkış almak mümkünmü?
İlgilenen arkadaşlara şimdiden teşekkür ederim

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butonla ilişkilendirip dener misiniz?

Sub Yazdir()
    Dim Evet As Boolean
    
    Evet = Application.Dialogs(xlDialogPrinterSetup).Show
    If Evet = False Then Exit Sub
    Rows("3:3").AutoFilter
    ActiveSheet.Range("$A$3:$M$1000").AutoFilter Field:=1, Criteria1:="<>"
    ActiveSheet.PrintOut
    Cells.AutoFilter
End Sub

 

[hilmi]

dosya ekleme problemi

Necdet Bey!
Duyarlılığınız için teşekkür ederim.
Makro konusunda yeterli bilgim az.Sizlerin destekleriyle bu okulda öğreniyorum.
Sütunlarda filtreleme yaptırıyorum.Filtre uygulanan bilgilerin olduğu sayfaları yazdırmak mümkün mü acaba.Örnek Dosya yı gönderiyorum.
Şimdiden teşekkürlerimi sunuyorum.İyi çalışmalar

 

[hilmi]

dosya ekleyemiyorum