DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
On Error Resume Next
Sheets(1).Select
Application.Dialogs(xlDialogPrint).Show
End Sub
Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Sheets("Sayfa2").Select
Application.Dialogs(xlDialogPrint).Show
Sheets("Sayfa1").Select
End If
If OptionButton2 = True Then
Sheets("Sayfa3").Select
Application.Dialogs(xlDialogPrint).Show
Sheets("Sayfa1").Select
End If
End Sub
Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Sheets("Sayfa2").printout
End If
If OptionButton2 = True Then
Sheets("Sayfa3").printout
End If
End Sub