Seçenekli Çıktı Alma

[bofarchi]

Bir page'de oluşturduğum anket formuna benzeyen bir çalışmam var. Örnekte görüldüğü gibi, alt alta sıralanan 50 sayfadan oluşuyor. 4er 5er sayfalık 10 bölümden oluşuyor. "pagesetup"da hiç bir zaman değişiklik yapmıyorum. Bu formun her seferinde 1-2 bölümünü doldurarak 10-12 sayfalık çıktılar alıyorum. Ama her print dediğimde 50 sayfa almak zorunda kalıyorum. Bu yüzden şöyle bir şey olabilir mi?:

"Print"e basınca bir "user form" açılsın. Burada 10 tane bölümün adını ve yanlarında seçenek kutularını göreyim. İşaretlediğim bölümler "Çıktı al"deyince çıksın diğerleri çıkmasın.

Örnek çalışma kitabında bir tane "userform1" hazırladım ordan bakabilirsiniz. ayrıca userformu jpeg olarak da koydum.

Şimdiden teşekkürler.

 

[quesh]

İstediğiniz şey çok zor değil ancak biraz daha açıklayıcı ya da diğer deyişle daha iyi açıllayabilirseniz yardımcı olabilirm, bölümden kastınız nedir örneğin.

 

[bofarchi]

İstediğiniz şey çok zor değil ancak biraz daha açıklayıcı ya da diğer deyişle daha iyi açıllayabilirseniz yardımcı olabilirm, bölümden kastınız nedir örneğin.

Öncelikle teşekkür ederim.
Bölümden kastım şöyle:
1. Bölüm: 1-4. sayfa
2. Bölüm: 5-7. sayfa
3. Bölüm: 8-14. sayfa
4. Bölüm: ............... gibi.

Bu 50 sayfalık anket formunun "page setup"ı hiç değişmediği için örneğin ben 1./3./4. ve 8. bölümleri doldurduysam çıktı alırken o bölümleri seçerek çıktılarını almalıyım.
Umarım biraz daha açıklayıcı olmuştur, tekrar teşekkür ederim.

 

[halit3]

Bu formda CheckBox seçenek düğmesi yerine OptionButton kullanmanız daha iyi olur çünkü CheckBox seçenek düğmesi ile birden fazla seçim yapılabiliyor oysa OptionButton seçenek düğmesi ile sadece bir tanesini seçebiliyorsunuz. herikisinede ait kod.

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
End If
If CheckBox2.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1
End If
If CheckBox3.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1
End If
If CheckBox4.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1
End If
If CheckBox5.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=6, Copies:=1
End If
If CheckBox6.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1
End If
If CheckBox7.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1
End If
 
End Sub

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
ElseIf OptionButton2.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1
ElseIf OptionButton3.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1
ElseIf OptionButton4.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1
ElseIf OptionButton5.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=6, Copies:=1
ElseIf OptionButton6.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1
ElseIf OptionButton7.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1
End If
End Sub

 

[bofarchi]

Halit Bey çok teşekkür ederim. Yine benim için çok önemli bir noktada yardımcı oldunuz.
Verdiğiniz kodları revize edip deneyeceğim.
Saygılarımla.

 

[bofarchi]

Göndermiş olduğunuz kodları ve user formu yapmak için tüm gün uğraştım ancak halledemedim.

Ekte ne yapmak istediğimi daha detaylı anlattım. Her bölüme ait sayfa numarası ve nasıl çıktı almam gerektiğini açıkladım.

ÖZETLE:"Sayfa1"de bir buton olacak, ona basınca "userform" açılacak, resimdeki gibi istenilenler seçilecek, "İPTAL" ya da "ÇIKTI AL" butonu ile işlem tamamlanacak.

Yardımlarınız için şimdiden teşekkürler.

 

[bofarchi]

Ek okunmadığı için tekrar yolluyorum.

 

[halit3]

Ek okunmadığı için tekrar yolluyorum.

Örnek dosyanızı ekleyin

 

[bofarchi]

Örnek dosyanızı ekleyin

Halit Bey, örnek ektedir.

"SAYFA1"de 38 sayfalık anket yer almaktaadır.

"Akış şeması" sayfasında bu anketin sayfa dağılımı ilişkisi de yer almaktadır. Daha rahat anlaşılabilmesi için ekledim.

Neleri seçmem gerektiğini anlatan bir "userform1" da hazırladım. Bu "userform1" sayfanın sonundaki butonla aktif edillebilmelidir.

Saygılarımla.

 

[halit3]

Halit Bey, örnek ektedir.

"SAYFA1"de 38 sayfalık anket yer almaktaadır.

"Akış şeması" sayfasında bu anketin sayfa dağılımı ilişkisi de yer almaktadır. Daha rahat anlaşılabilmesi için ekledim.

Neleri seçmem gerektiğini anlatan bir "userform1" da hazırladım. Bu "userform1" sayfanın sonundaki butonla aktif edillebilmelidir.

Saygılarımla.

Ekli Dosyanızı kontrol edin.

 

[bofarchi]

Ekli Dosyanızı kontrol edin.

Özür dilerim, yanlış dosya eklemişim. Doğrusu ektedir.

 

[halit3]

10 . nolu mesajdaki dosyadaki kodları kendi dosyanıza uyarlayın.

 

[bofarchi]

Halit Bey,

Ekli tüm dosyalara baktım ancak kodları göremedim. Ben mi bulamadım acaba?

 

[halit3]

Halit Bey,

Ekli tüm dosyalara baktım ancak kodları göremedim. Ben mi bulamadım acaba?

Örnek dosyayı yapmıştım ancak rar olarak kayıt yapmadığımdan sistem dosyayı büyük olduğundan eklememiş dosyanız 10 nolu mesajda

 

[bofarchi]

Halit Bey,

Ellerinize sağlık. Ne kadar teşekkür etsem azdır. Çok güzel oldu...

 

[halit3]

Halit Bey,

Ellerinize sağlık. Ne kadar teşekkür etsem azdır. Çok güzel oldu...

İyi çalışmalar

 

[ozkovlu]

Merhaba arkadaşlar;
Private Sub CommandButton1_Click() 'Yazdırmak için ÖN izleme yap

UserForm2.Hide 'Formu Gizle
If CheckBox1.Value = True Then
ActiveWindow.SelectedSheets.PrintPreview 'Ön izleme yap
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
End If

End Sub

ilk baskı önizleme yapıp daha sonra çıktı nasıl alabiliriz.
Üsteki kodu yazdım hata verdi.