Soru Boş olanların yazdırılmaması.

[vuranoğlu]

Merhaba

Uzun bir excel tablosunda yazdırma alanı belirleyerek (I) da boş olanların ön izleme yapılarak yazdırılmaması için nasıl kod yazmalıyız?
Private Sub CommandButton1_Click()

Son = [a100000].End(3).Row
If Son < 100000 Then
ActiveSheet.PageSetup.PrintArea = "$a$1:$J$" & Son + 1
With ActiveSheet.PageSetup
.Zoom = False
End With
ActiveSheet.PrintOut
Else
ActiveSheet.PageSetup.PrintArea = "$a$1:$ı$" & Son + 1
With ActiveSheet.PageSetup
.Zoom = 85
End With
'ActiveSheet.PrintOut
End If

MsgBox "İşlem TAMAM.", vbInformation
End Sub


Bu kod istenileni vermiyor.

 

[DoğanD]

Merhaba,

Aşağıdaki kodu dener misiniz? Kodun başında I sütununda boş olmayanları filtreleyip, ardından filtreyi kaldırıyor.

Private Sub CommandButton1_Click()
Son = [a100000].End(3).Row
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$I$" & Son).AutoFilter Field:=9, Criteria1:="<>" '9. Sütunda bos olmayanlari seçer

If Son < 100000 Then
  ActiveSheet.PageSetup.PrintArea = "$a$1:$J$" & Son + 1
    With ActiveSheet.PageSetup
        .Zoom = False
    End With
  ActiveSheet.PrintPreview
Else
  ActiveSheet.PageSetup.PrintArea = "$a$1:$ı$" & Son + 1
    With ActiveSheet.PageSetup
        .Zoom = 85
    End With
  'ActiveSheet.PrintOut
End If
    ActiveSheet.Range("$A$1:$I$" & Son).AutoFilter Field:=9 'Filtreyi Iptal Eder

MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[vuranoğlu]

Merhaba
Kod çalışıyor. Ancak tam sayfayı önizleme yapıyor
Yazdırılacak sayfanın üstüne "sayfa üst bilgi" deki gibi "ÇIKTI" yazdıra bilir miyiz?
Sayfa düzenindeki değişim ile yapılırsa dosya kapatıp açıldığında "sayfa üstbilgi" siliniyor.
Kod ile oluşturabilirsek dosya kapatıp açıldığında sabit kalır.

 

[DoğanD]

Merhaba
Kod çalışıyor. Ancak tam sayfayı önizleme yapıyor
Yazdırılacak sayfanın üstüne "sayfa üst bilgi" deki gibi "ÇIKTI" yazdıra bilir miyiz?
Sayfa düzenindeki değişim ile yapılırsa dosya kapatıp açıldığında "sayfa üstbilgi" siliniyor.
Kod ile oluşturabilirsek dosya kapatıp açıldığında sabit kalır.

Ben boşuna çıktı almasın diye PrintPreview yapmıştım. "ActiveSheet.PrintPreview" kodunu "ActiveSheet.PrintOut" olarak değiştirebilirsiniz.

Üst Bilgiyi de Sayfa Düzeni > Yazdırma Başlıkları > Üst Bilgi/Alt Bilgi > Özel Üst Bilgi kısmında belirleyebilir ve kullanabilirsiniz.

 

[vuranoğlu]

Merhaba
İlginize bilgilendirmenize teşekkürler.