kodlama nasıl yapılabilir

[kelbasasimsirtarak]

benim kodumda anlatmak istediğim şu olacak.eğer checkbox 1 işaretliyse yazdıra bastığımda sayfa1'i yazdır.eğer checkbox 1 ve checkbox2 işaretliyse yazdıra bastığımda sayfa1 ve sayfa2'yi yazdır.eğer checkbox 2, checkbox5 ve checkbox6 işaretliyse yazdıra bastığımda sayfa2,sayfa5 ve sayfa6'yı yazdır.
bu kodu nasıl yazabilirim?

 

[ExcelF1]

If checkbox1 = True Then Sheets(1).PrintOut Copies:=1, Collate:=True
If checkbox2 = True Then Sheets(2).PrintOut Copies:=1, Collate:=True
If checkbox3 = True Then Sheets(3).PrintOut Copies:=1, Collate:=True
If checkbox4 = True Then Sheets(4).PrintOut Copies:=1, Collate:=True
If checkbox5 = True Then Sheets(5).PrintOut Copies:=1, Collate:=True
If checkbox6 = True Then Sheets(6).PrintOut Copies:=1, Collate:=True

Bu şekilde bir dener misiniz.

 

[kelbasasimsirtarak]

hayır olmadı

 

[ExcelF1]

Olmayan nedir acaba ? Sadece 1.sayfa mı yazdırılıyor ? Bir hata mı veriyor ? Veriyor ise nedir ?

 

[ExcelF1]

Private Sub CommandButton1_Click()

If CheckBox1 = True Then
Sheets(1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End If

If CheckBox2 = True Then
Sheets(2).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End If

        
If CheckBox3 = True Then
Sheets(3).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End If

End Sub

Bir de bu şekilde deneyebilirsiniz.

 

[kelbasasimsirtarak]

kodu bu şekilde yaptım bu kez oldu.

Private Sub CommandButton1_Click()
On Error Resume Next
If CheckBox1 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut
If CheckBox2 = True Then
Sheets("İŞLETME KREDİSİ").PrintOut
If CheckBox3 = True Then
Sheets("KÜÇÜKBAŞ ALIMI").PrintOut
If CheckBox4 = True Then
Sheets("DAMIZLIK HAYVAN ALIMI").PrintOut
If CheckBox5 = True Then
Sheets("DAMLAMA SULAMA").PrintOut
If CheckBox6 = True Then
Sheets("MEYVECİLİK YATIRIM").PrintOut
If CheckBox7 = True Then
Sheets("SERACILIK").PrintOut
If CheckBox8 = True Then
Sheets("BİYOGÜVENLİK").PrintOut
If CheckBox9 = True Then
Sheets("ÇİFTÇİ KREDİ KARTI").PrintOut
If CheckBox10 = True Then
Sheets("BÜYÜKBAŞ HAYVAN ALIMI").PrintOut
If CheckBox11 = True Then
Sheets("BESİ DANASI ALIMI").PrintOut
If CheckBox12 = True Then
Sheets("TRAKTÖR").PrintOut
If CheckBox13 = True Then
Sheets("2.EL TRAKTÖR").PrintOut
If CheckBox14 = True Then
Sheets("MEKANİZASYON").PrintOut
If CheckBox15 = True Then
Sheets("NAKLİYE ARACI").PrintOut
If CheckBox16 = True Then
Sheets("ARAZİ EDİNDİRME").PrintOut
If CheckBox17 = True Then
Sheets("ARICILIK").PrintOut
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Unload Me
End Sub
Private Sub UserForm_Activate()
CheckBox1.Value = True
End Sub

 

[kelbasasimsirtarak]

bu kodlarla zorunlu seçimli olan TARIM KREDİ BORCU ile beraber seçtiğim herhangi bir formu aynı anda yazdırabilirim değil mi? evde yazıcı yok test edemiyorum.

 

[kelbasasimsirtarak]

sadece TARIM KREDİ BORCUnu yazdırıyor.diğerleri seçilse bile sadece TARIMSAL KREDİ BORCUnu yazdırıyor nasıl bir çözüm olur buna?

 

[kelbasasimsirtarak]

yardım arkadaşlar

 

[ExcelF1]

5 nolu mesaja bakmış mıydınız ?