İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
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...
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...