koşullu yazdırma????

[tirvana]

selam ve saygılarımla...

metraj programını yazdırma işleminde otomatik hale getirmek istiyorum.
örneğin 50. satırda 1 sayfanın toplamı 100. satırda 2. sayfanın toplamı 150. satırda 3. sayfanın toplamı var vs... 100. satırdaki toplam 0 (sıfır) ise sadece ilk sayfayı yazsın. (2. sayfaya değer girilmemiş demektir.) yada 100. satırda değer var ama 150. satır 0 ise sadece ilk iki sayfayı yazsın şeklinde koşullu yazdırma belirlenebilir mi...

 

[Levent Menteşoğlu]

Koşula göre kod ile yazdırma alanını belirleyebilirsiniz. Ã?rneğin;

[vb:1:c2ee2c85b2]if [a100]=0 then ActiveSheet.PageSetup.PrintArea = "$A$1:$E$50"
if [a150]=0 then ActiveSheet.PageSetup.PrintArea = "$A$1:$E$100"[/vb:1:c2ee2c85b2]

 

[tirvana]

sn levent bu kodu nasıl kullanacağım hakkında bilgi verirmisiniz. makro yada modullerin içine mi...

not:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If [K107] = 0 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$K$56"
If [K159] = 0 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$K$109"
If [K211] = 0 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$K$160"
If [K263] = 0 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$K$212"
If [K315] = 0 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$K$264"
End Sub
olarak denedim olmadı

 

[tirvana]

gerekirse ornek dosya ekleyebilirim

 

[Levent Menteşoğlu]

gerekirse ornek dosya ekleyebilirim

Eklerseniz iyi olur.

 

[tirvana]

ekli