0ptionbutonla seçilen verinin yazdırılması

[İsmail Küçükşengün]

Merhabalar;

Userformda bulunan optionbuttonlardan seçtiğim ile ;

Private Sub CommandButton57_Click()
For a = 1 To 6
If Controls("optionbutton" & a).Value = True Then
Select Case a
Case 1: adr = "b1:h47"
Case 2: adr = "b51:h78"
Case 3: adr = "b93:h120"
Case 4: adr = "b191:h214"
Case 5: adr = "b160:h184"
Case 6: adr = "b132:h157"

End Select
Sheets("talimat").PageSetup.PrintArea = adr
Application.ScreenUpdating = False
Application.Visible = True
Application.ScreenUpdating = True
UserForm16.Hide
Sheets(Array("talimat")).PrintPreview
Application.ScreenUpdating = False
Application.Visible = False
Application.ScreenUpdating = True
Sheets("veri").Select
UserForm16.Show
Exit Sub
End If
Next
End Sub

Kodu ile istediği veriyi önizleme yaptırıyorum.

Önizlemeden sonra, userform geri geldiğinde, halen seçili bulunan verinin yazdırılması için nasıl bir ilave gereklidir.

Şimdiden Teşekkürler...

 

[Ayhan Ercan]

Sheets(Array("talimat")).PrintPreview (bu kod ile önizleme alıyorsunuz)

PrintPreview yerine PrintOut yazarsanız çıktı almış olursunuz.

 

[İsmail Küçükşengün]

Sayın Schakal;

İlgine teşekkür.

Dediğiniz gibi yaptığımda sadece yazıyor.
Oysa ben, önizleme de yapmak istiyorum.
Bu itibarla, önizleme yapıp, tekrar userforma geri döndüğümüzde, bir buton ile halen seçili olan otionbutondaki verinin, ayrıca yazdırılması için, koda ilave gereklidir,diye düşünüyorum.

 

[Ongun]

Selam, aşığıdaki örnek kodu bir deneyin. umarım işinize yarar.

Private Sub CommandButton2_Click()
Application.Visible = True
UserForm1.Hide
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$20"
ActiveSheet.PrintPreview EnableChanges:=False
ActiveSheet.PrintOut copies:=2, Preview:=False 'copies:=1 kopya sayısını artırmak için
Application.Visible = False
UserForm1.Show
End Sub

ActiveSheet.PrintOut copies:=2, Preview:=False

Bu satır önizlemeden çıktığınız zaman yazdırma işlemini gerçekleştirir. Kolay gelsin.

Şayet yapmak istediğiniz önizleme yaptıktan sonra userform`a geçtikten sonra yazdırmak istiyorsanız. O halde form üzerine bir buton koyarak aşağıdaki kodu yazınız.

Private Sub CommandButton3_Click()
ActiveSheet.PrintOut copies:=1
End Sub

 

[İsmail Küçükşengün]

Sayın Ongun;

İlgine Teşekkür.

İsteğim Userforma döndükten sonra yazdırmak idi.

Verdiğiniz kod.da yazdırmadı.

Önceden kod ibarelerinde fazlalık olmasını istememiştim.Fakat sonunda, yukarıda yazdığım kodu, ayrı butona bağlayıp, PrintPreview yerine PrintOut yazıp sorunumu çözdüm.

İyi hafta sonları dilerim.

 

[ocamsul]

arkadaşlar merhaba bu işlemi userform üzerinde bulunan ComboBox da seçim yaptıktan sonra seçili sayfanın yazdırılması ile ilgili örneğiniz varmı arkadaşlar.

1. combodan seç
2. baskı önizle ve yazdır