Yazdırmayı Engelle

[ocamsul]

Arkadaşlar merhabalar.

Combobox ile listelenen sayfalar yazdırılabiliyor.
Ancak benim yapmak istediğim Sayfa1 ve VERİ3 sayfalarının seçilse bile yazdırılmaması ve uyarı mesajı ile "yazma yetkiniz yok" mesajı almak ve combobox a geri dönmek. Bu konuda ne gibi bir düzenleme yapabiliriz?

 

[olymposss]

sn ocamsul
yetkiyi nasıl veriyorsunuz.kimlerin yazdırma yapmasını istiyorsunuz.biraz daha açabilirmisiniz.

 

[nisayzemliney]

yardıma ihtiyacım var

selam
tablodaki satışları kopyala butonunu çalıştırmakta yardım istiyorum.

 

[ocamsul]

sn ocamsul
yetkiyi nasıl veriyorsunuz.kimlerin yazdırma yapmasını istiyorsunuz.biraz daha açabilirmisiniz.

SN: olymposss benim yetki ile vermiş olduğum izin daha sonraki aşamam. Öncelikle Combobox ile bazı sayfalar seçilse bile bunların yazdırılmasını engellemek istiyorum.

 

[olymposss]

sn ocamsul

programınıza müdahale etmek istemem ama belki bu şekilde işinize yarayabilir.
yazdır butonunu aşağıdaki şekilde düzenleyiniz.

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Lütfen kopya sayısını giriniz...!"
TextBox1.SetFocus
Exit Sub
End If
If ComboBox1 = "" Then
MsgBox "Lütfen yazdırmak istediğiniz sayfayı seçiniz...!"
ComboBox1.SetFocus
Exit Sub
End If
ilk = InputBox("Lütfen yetki kodunuzu giriniz.")
If ilk = "1234" Then
GoTo veri
Else
MsgBox "Yetki kodunuz yanlış.Lütfen yöneticinize danışınız."
Exit Sub
End If
veri:
Me.Hide
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1.Value
Me.Show
End Sub

saygılar

 

[Korhan Ayhan]

Selamlar,

Yazdırma işlemini yaptırdığınız butona şart vererek bu işlemi yapabilirsiniz. Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    If TextBox1 = "" Then
    MsgBox "Lütfen kopya sayısını giriniz...!"
    TextBox1.SetFocus
    Exit Sub
    End If
    If ComboBox1 = "" Then
    MsgBox "Lütfen yazdırmak istediğiniz sayfayı seçiniz...!"
    ComboBox1.SetFocus
    Exit Sub
    End If
    If ComboBox1 = "Sayfa1" Or ComboBox1 = "VERİ3" Then
    MsgBox "Yazdırma yetkiniz yok...!", vbCritical
    ComboBox1.SetFocus
    Exit Sub
    End If
    Me.Hide
    ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1.Value
    Me.Show
End Sub

 

[ocamsul]

SN: COST_CONTROL üsdat çok teşekkür ederim tam istediğim gibi. (En kısa zamanda bu Formüllerde olduğu gibi Macrolarda da şart işlemlerine alışmam lazım.) Ayrıca SN: olymposss sizede ilginizden ve verdiğiniz örnekten dolayı teşekkür ederim sağolun.