CheckBox işaretli sayfaları yazdırma

[İhsan Tank]

Teşekkür ederim.Ellerinize sağlık.

rica ederim
:yazici:

 

[mahmutozdemir]

Selamlar,
Private Sub CommandButton4_Click()
If CheckBox1.Value = True Then
Workbooks.Open("E:\GSİM.xls").PrintOut
ElseIf CheckBox2.Value = True Then
Workbooks.Open("E:\2009 SEANS PROĞRAMI.xls").PrintOut
ElseIf CheckBox3.Value = True Then
Workbooks.Open("E:\Yeni Klasör\öğreci listesi.xls").PrintOut
End If
End Sub
koduyla istenen sayfaları yazdırıyoruz.Ben bir bölüm daha açtım ve textbook koydum.Buraya çıkcak kopya sayısını yazmak istiyorum.Bu kodun içine bu eklenebilir mi?

 

[İhsan Tank]

merhaba

Private Sub CommandButton4_Click()
If CheckBox1.Value = True Then
Workbooks.Open("E:\GSİM.xls").Sheets("Sayfa1").PrintOut From:=1, To:=TextBox1.Value
ElseIf CheckBox2.Value = True Then
Workbooks.Open("E:\2009 SEANS PROĞRAMI.xls").Sheets("Sayfa1").PrintOut From:=1, To:=TextBox1.Value
ElseIf CheckBox3.Value = True Then
Workbooks.Open("E:\Yeni Klasör\öğreci listesi.xls").Sheets("Sayfa1").PrintOut From:=1, To:=TextBox1.Value
End If
End Sub

bu kodu dener misiniz

veya

Private Sub CommandButton4_Click()
If CheckBox1.Value = True Then
Workbooks.Open("E:\GSİM.xls").PrintOut Form:=1, To:=TextBox1.Value
ElseIf CheckBox2.Value = True Then
Workbooks.Open("E:\2009 SEANS PROĞRAMI.xls").PrintOut Form:=1, To:=TextBox1.Value
ElseIf CheckBox3.Value = True Then
Workbooks.Open("E:\Yeni Klasör\öğreci listesi.xls").PrintOut Form:=1, To:=TextBox1.Value
End If
End Sub

bu kodu