Koşullu Sayfa Yazdırma

[ahmetcirali]

Değerli Ustalar 30 Sayfadan Oluşan Bir Excel Tablom Var İstediğim Bu Sayfalardan A3:F501 Arasında Değer Varsa Yazdırması Değer Olmayan sayfaları Yazdırmaması Bununla İlgili Bir Makro Varmı Yardımcı Olursanız Sevinirim. Birde Userformu Tam Ekran Ve Küçük Ekran Yapmak İçin Bir Buton Kullanabilirmiyiz Forumda Bir Örnek Var Ama Onu Kullanamadım Baya Karışık Geldi. Teşekkür Ederim.

 

[excel03]

merhaba;

Sub DegerYazdır()
Dim alan As Range
boş = 0
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(i).Select
Set alan = Worksheets(i).Range("a3:f501")
        For j = 1 To alan.Cells.Count
            If alan.Cells(j).Value <> "" Then
            boş = boş + 1
            End If
            
            If boş > 0 Then
            boş = 0
            ActiveSheet.PageSetup.PrintArea = "$A$3:$F$501"
            ActiveWindow.SelectedSheets.PrintOut
            Exit For
            End If
        Next j

Next i

End Sub

 

[ahmetcirali]

Yardımınız İçin Teşekkür Ederim Ancak Tüm Sayfayı Yazdırıyor Komut Ben Seçili Alanda Veri Varsa Yazdırmasını İstiyorum

 

[Mahir64]

Yardımınız İçin Teşekkür Ederim Ancak Tüm Sayfayı Yazdırıyor Komut Ben Seçili Alanda Veri Varsa Yazdırmasını İstiyorum

Merhaba
Tam ekran için

Private Sub CommandButton2_Click()
Me.Top = Application.Top
    Me.Left = Application.Left
    Me.Height = Application.Height
    Me.Width = Application.Width
End Sub

 

[Mahir64]

Merhaba
http://www.excel.web.tr/f48/userform-uzerine-simge-durumuna-kucult-nasyl-yerle-tir-t9328.html

Burası daha faydalı olacaktır normal Windows klasörleri gibi kullanmak isterseniz inceleyin

 

[ahmetcirali]

teşekkürler ilginiz ve yardımınız için

 

[Mahir64]

teşekkürler ilginiz ve yardımınız için

Kolay gelsin
İyi çalışmalar:hey: