Seçmeli yazdırma makrosu

[suskun127]

üstadlar
dosyayı userformu kaydetmeden eklemişim özür diliyorum
şimdi dosyayı yeniden düzenleyip tekrar yükledim

ekli dosyada yazdır düğmesini tıkladığımda userform geliyor gelen userformdaki kodları bulamadım örneğin userformdan muz ve elmayı işaretlediğimde seçileni yazdır dediğimde sadece seçtiğim sayfalar tümünü yazdır dediğimde ise( veri girişi hariç ) diğer tüm sayfaların yazdırmasını istiyordum ancak yapamadım yardımcı olursanız sevinirim

 

[Necdet]

Merhaba,

Dosyanızı inceledim ama ne yapmak istediğinizi hiç anlamadım.

 

[suskun127]

üstadlar soruyu ve ekli dosyayı güncelledim

üstadlar soruyu ve ekli dosyayı güncelledim
yardımlarınızı bekliyorum teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Userformun kod bölümüne:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CheckBox1.Value = True Then
Sheets("elma").PrintOut
End If

If CheckBox3.Value = True Then
Sheets("armut").PrintOut
End If

If CheckBox2.Value = True Then
Sheets("vişne").PrintOut
End If

If CheckBox4.Value = True Then
Sheets("muz").PrintOut
End If
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
aa = Sheets.Count
For i = 2 To aa
Sheets(i).PrintOut
Next i
Application.ScreenUpdating = True
End Sub

. . .