Hücre değerine göre Yazdırma alanı ayarlayabilirmiyiz.?

[ferhatgurbuz]

Excel sayfasına başka sayfadan formül ile veri aktarıyorum. Bazen on sayfa bazen beş sayfa olabiliyor. istiyorum ki ben sayfaları kontrol etmeden yazdır butonuna tıklayınca dolu sayfaları yazdırsın.

 

[AS3434]

Sayın ferhatgurbuz

Forum içinde sorunuzla ilgili, değişik örnekler var.

Lütfen, Forumun ARAMA motorunu kullanın.

 

[ferhatgurbuz]

Yazdirma Alani

Arkadaşlar formdaki örneklere baktım ama kendime göre bulamadam YADA UYARLAYAMADIM. EKTEKİ ÖRNEĞE BAKIP YARDIM EDERSENİZ SEVİNİRİM.

 

[AS3434]

Aşağıdaki kodları butona atayın.

Sub Makro1()
For i = 28 To [m65536].End(3).Row Step 58
If Cells(i, 13) > 0 Then
n = n + 58
Range("a" & n - 57 & " : " & "n" & n).PrintOut
End If
Next
End Sub

 

[ferhatgurbuz]

Teşekkürler AS3434 BİRDE BASKI ÖNİZLEME KODU YAZABİLİRMİİYİZ

 

[AS3434]

Önileme için Printout kısmını printpreview yapın.

Sub Makro1()
For i = 28 To [m65536].End(3).Row Step 58
If Cells(i, 13) > 0 Then
n = n + 58
Range("a" & n - 57 & " : " & "n" & n).[B][COLOR=red]Printpreview[/COLOR][/B]
End If
Next
End Sub

 

[ferhatgurbuz]

Teşekkürler arkadaşlar ellerinize saglık

 

[ferhatgurbuz]

arkadaşlar aşağıdaki kod daha önce yazdırıyordu şimdi yazdıramadım. Burdaki şart neye bağlı bir söylermisiniz.