yazdır komutu

[sahinugur2002]

konulara baktım ama bu konu ile ilgili bir soru göremediğim için yeni konu açıyorum.
Bir çalışma dosyası yaptım. 20 sayfada n oluşuyor. ama bunun sadece belli sayfaları belli bir sıra ile yazdırmak istiyorum. bunun için bir büton yapıp bütona tıkladığımda sadece benim belirlediğim sayfaları yazmak mümkünmü?

 

[Orion1]

konulara baktım ama bu konu ile ilgili bir soru göremediğim için yeni konu açıyorum.
Bir çalışma dosyası yaptım. 20 sayfada n oluşuyor. ama bunun sadece belli sayfaları belli bir sıra ile yazdırmak istiyorum. bunun için bir büton yapıp bütona tıkladığımda sadece benim belirlediğim sayfaları yazmak mümkünmü?

Mümkün.

 

[halit3]

konulara baktım ama bu konu ile ilgili bir soru göremediğim için yeni konu açıyorum.
Bir çalışma dosyası yaptım. 20 sayfada n oluşuyor. ama bunun sadece belli sayfaları belli bir sıra ile yazdırmak istiyorum. bunun için bir büton yapıp bütona tıkladığımda sadece benim belirlediğim sayfaları yazmak mümkünmü?

ekli dosyayı inceleyiniz.

 

[miranguler]

Sayın Halit3

Aynı sorun bendede var ve dosyadaki makroları kullanmak istedim fakat sayfa kitli kodları göremiyorum.Yardımcı olabilirmisiniz.

Saygılar.

 

[asuzen]

Sayın Halit3

Aynı sorun bendede var ve dosyadaki makroları kullanmak istedim fakat sayfa kitli kodları göremiyorum.Yardımcı olabilirmisiniz.

Saygılar.

Sayfada yada VBA da herhangi bir şifre ggöremedim ama...
Kodlar gayet açık duruyor.

Private Sub CheckBox1_Click()
Dim iloop As Integer
For iloop = 1 To ListBox1.ListCount
ListBox1.Selected(iloop - 1) = CheckBox1.Value
Next
End Sub
Private Sub CommandButton1_Click()
Dim iloop As Integer
For iloop = 1 To ListBox1.ListCount
If ListBox1.Selected(iloop - 1) = True Then
Sheets(ListBox1.List(iloop - 1, 0)).PrintOut
ListBox1.Selected(iloop - 1) = False
End If
Next
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
Dim iloop As Integer
For iloop = 1 To ListBox1.ListCount
If ListBox1.Selected(iloop - 1) = True Then
Sheets(ListBox1.List(iloop - 1, 0)).PrintPreview
ListBox1.Selected(iloop - 1) = False
End If
Next
UserForm1.Show
End Sub



Private Sub UserForm_Initialize()
Dim sSheet
For Each sSheet In Sheets
ListBox1.AddItem sSheet.Name
Next sSheet
End Sub