Checkbox durumuna göre print

[byfika]

Merhabalar,
Userform üzerinde 10 textbox ve 5 checkbox mevcut.
Aşağıdaki kodlarla Textboxlarla sayfaya veri giriyorum. Ve print alıyorum.
Yapmak istediğim:
Textbox1 ve 6 ya veri girdiğimde
Checkbox1 = true diğer checkboxlar false olduğunda
A1-N7 aralığını,
Textbox1, 2, 6 ve 7 ye veri girdiğimde
Checkbox1 ve 2 true diğer checkboxlar false olduğunda
A1-N14 aralığını,
Textbox1, 2, 3, 6, 7 ve 8 e veri girdiğimde
Checkbox1, 2 ve 3 true diğer checkboxlar false olduğunda
A1-N21 aralığını,
Textbox1, 2, 3, 4, 6, 7, 8 ve 9 a veri girdiğimde
Checkbox1, 2, 3 ve 4 true diğer checkbox false olduğunda
A1-N28 aralığını,
Tüm textboxlara veri girdiğimde
Checkbox1, 2, 3, 5 ve 5 true olduğunda
A1-N36 aralığını,
Tek YAZDIR butonu ile yukarıdaki şartlara göre nasıl print alabilirim.
USERFORM KODU:
Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.Range("b3").Value = TextBox1.Text
ActiveSheet.Range("b10").Value = TextBox2.Text
ActiveSheet.Range("b17").Value = TextBox3.Text
ActiveSheet.Range("b24").Value = TextBox4.Text
ActiveSheet.Range("b31").Value = TextBox5.Text
ActiveSheet.Range("f6").Value = TextBox6.Text
ActiveSheet.Range("f13").Value = TextBox7.Text
ActiveSheet.Range("f20").Value = TextBox8.Text
ActiveSheet.Range("f27").Value = TextBox9.Text
ActiveSheet.Range("f34").Value = TextBox10.Text
End Sub

Private Sub CommandButton2_Click()
Me.Hide
Call yazdir
Me.Show
End Sub
MODULE KODU:
Sub yazdir()
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$a$1:$n$36"
ActiveSheet.PrintOut Copies:=1
End Sub

Bilgi için teşekkürler...

 

[Saban Sertkaya]

Merhabalar,
Deneyiniz...

Sub yazdir()
Sheets("Sayfa2").Select
If TextBox1 <> "" And TextBox6 <> "" And _
CheckBox1 = True And CheckBox2 = False And CheckBox3 = False And CheckBox4 = False And CheckBox5 = False Then
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$7"
ActiveSheet.PrintOut Copies:=1

ElseIf TextBox1 <> "" And TextBox2 <> "" And TextBox6 <> "" And TextBox7 <> "" And _
CheckBox1 = True And CheckBox2 = True And CheckBox3 = False And CheckBox4 = False And CheckBox5 = False Then
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$14"
ActiveSheet.PrintOut Copies:=1

ElseIf TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox6 <> "" And TextBox7 <> "" And TextBox8 <> "" And _
CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And CheckBox4 = False And CheckBox5 = False Then
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$21"
ActiveSheet.PrintOut Copies:=1

ElseIf TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox6 <> "" And TextBox7 <> "" And TextBox8 <> "" And TextBox9 <> "" And _
CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And CheckBox4 = True And CheckBox5 = False Then
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$28"
ActiveSheet.PrintOut Copies:=1

ElseIf TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" And TextBox6 <> "" And TextBox7 <> "" And TextBox8 <> "" And TextBox9 <> "" And TextBox10 <> "" And _
CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And CheckBox4 = True And CheckBox5 = True Then
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$36"
ActiveSheet.PrintOut Copies:=1
End If
End Sub

 

[byfika]

Merhabalar Saban Bey,
Yazdığınız kodları module yazıp denedim. Fakat çalışmadı. Bende ekteki gibi bir çalışma yaptım. Çalışıyor ama checkbox1 true yapıldığında istenen oluyor. Daha sonra checkbox1 ve 2 true yapıldığında ilk yazdır da işlem yapmıyor aynı işlemi ikinci kez yapıldığında yapıyor. 3, 4 ve 5. checkboxlar true yapıldığın da yine ikinci denemede çalışmakta. Örneği ekledim.
Ayrıca ilginiz için teşekkürler...

 

[Saban Sertkaya]

Merhabalar,

Altın üye olmadığımdan dosyanızı indiremiyorum. Alternatif bir link verirseniz yardımcı olmaya çalışayım.
Örneği inceleyiniz.

İndir Checkbox

Dosyayı indir Checkbox

dosya.co

 

[byfika]

Merhabalar Saban Bey,
Son gönderdiğiniz dosya çalışıyor. Teşekkürler.
3. mesajımdaki hazırladığım dosyayı yüklüyorum.
Saygılarımla...

İndir CHECKBOX KONTROLLU YAZDIRMA deneme

Dosyayı indir CHECKBOX KONTROLLU YAZDIRMA deneme

dosya.co

 

[Saban Sertkaya]

Merhabalar,

Deneyiniz...

İndir Checkbox

Dosyayı indir Checkbox

dosya.co

 

[byfika]

Merhabalar SabanBey,
Cevabınız için teşekkürler.
3 ve 5. mesajımda aynı dosyayı eklemiştim. Bu dosyalar çalışmakta fakat 3. mesajımda yazdığım problem var ve sizin son gönderdiğiniz dosyada da aynı problem devam ediyor.
Textbox1, 6 doldurulunca ve checkbox1 true yapılınca diğerleri boş problem yok. Hemen arkasından;
Textbox1, 2, 6,7 doldurulunca ve checkbox1, 2 true yapılınca sadece A1-N7 ye kadar printview gösteriyor. Ama ikinci kez yazım yapılmak istenince bu kez A1- N14 aralığını printview de gösteriyor. Yani 3. mesajda açıkladığım gibi.
Tekrar teşekkürler, saygılarımla...

 

[birkan_morkoc]

bir şey soracağım ama konu dışı benim sorumu neden kimse görmüyor çok yeniyim de burada

 

[Saban Sertkaya]

Merhabalar byfika,

3.mesajda sorunu doğru anlayamamışım. Sanırım istediğiniz bu şekilde. İnceleyiniz lütfen.

İndir Checkbox

Dosyayı indir Checkbox

dosya.co

 

[byfika]

Sayın Saban bey,
Son dosya uygun.
Teşekkürler, saygılarımla...