(24/12/2015, 23:45)ozanakkaya yazdı: [ -> ]Liste kutusundaki amaç seçim yapma olayı değil. Sadece Yazdırma işlemi yapılacak öğrencilerin listesinin görünmesi için. Seçim yapılsa da yapılmasa da liste kutusundaki tüm öğrencilere ait veriyi yazdıracak.
Anladım Sayın ozanakkaya. Tekrardan çok teşekkür ederim emeğiniz için. İyi geceler.
Sayın matkap,
Sayın ozan bey’in hoşgörüsü ve izni ile talebinize ilk etapta yardımcı olmak üzere bilgilendirmede bulunmak adına,
Alıntı:...yazdır komutu verdikten sonra her öğrenci için ayrı ayrı onay vermek zorundayız...
Alıntı:...sınıfı seçip yazdır dedikten sonra onay istemeden tüm sınıf için sınav kağıdı yazdırma şansımız olabilir mi?...
ifadeniz ile kast ettiğiniz talep;
sanırım,butonun tıklandığında olay yordamındaki yazdırma mesajının çıkmaksızın direkt baskı işleminin gerçekleştirilmesi ise,yapmanız gereken aşağıdaki kod ifadeleri ile mevcut olan kodları değiştirmenizdir.
Kod:
Private Sub Komut10_Click()
Dim objWordApp As Object
Dim objWordDoc As Object
Dim strBMName, BelgeYolu As String
Dim objBMRange As Object
Dim i As Integer
BelgeYolu = CurrentProject.Path & "\" & Me.acl_sinifi & ".doc"
Set objWordApp = CreateObject("Word.Application")
Set objWordDoc = objWordApp.Documents.Open(BelgeYolu)
objWordApp.Visible = False
For i = 0 To Me.Liste5.ListCount - 1
strBMName = "OgrenciBilgileri"
Set objBMRange = objWordDoc.Bookmarks(strBMName).Range
objBMRange.Text = Me.Liste5.Column(2, i) & "," & Me.Liste5.Column(1, i) & "," & Me.Liste5.Column(3, i)
objWordDoc.Bookmarks.Add Name:=strBMName, Range:=objBMRange
Set objBMRange = Nothing
' If MsgBox(Me.Liste5.Column(1, i) & " isimli öğrencinin belgesi yazdırılsın mı?", vbYesNo, "yazdırma işlemi.") = vbYes Then
objWordApp.PrintOut Background:=False
' End If
Next i
objWordApp.Quit False
Set objWordDoc = Nothing
Set objWordApp = Nothing
End Sub
yapılan işlem;SADECE mesajın gösterilmesinin iptal edilmesidir.bilginize…iyi çalışmalar,saygılar.
Sayın atoz112 değerli yardımınız için çok teşekkür ederim. Evet istediğim tam olarak sizin bahsettiğiniz mesajın çıkmamasıydı.
Sayın ozanakkaya ve Sayın atoz112,
Bilgileri filtre edilmiş liste kutusu yerine,filtre edilmiş alt formdan gönderip aynı işlemleri yaptırabilir miyiz? Yani sınav kağıtlarına yazacağı bilgileri liste kutusundan değilde, alt formda filtre uyguladıktan sonra kalan kayıtlardan alabilir mi?
İlgi ve yardımlarınız için şimdiden teşekkür ederim.
sayın matkap,
Site Kuralları sayfasını tekrar incelemenizi temenni etmekle birlikte;Cevaplanmış Sorular kategorisi içerisine taşınıp kapatılmış ve örnek eklemesinin dahi yapılamayacağı bir konuda,mesaj eklemesinde bulunmayınız.
bu konuyu bağlantı göstermek sureti ile sorunuzu ya da talebinizi içerecek yeni bir konu açarak sorununuza çözüm arayabilirsiniz.
böylece,hem bu konunun mesaj yoğunluğunu artırmamış olursunuz hem de benzer soruna maruz kalabilecek olan diğer üyelerin site içi aramalarda alternatif bir konuya da bakınmasını ve incelemesini de sağlamış olursunuz.
konunuza,örnek uygulamanızı;içeriğinde farazi gerçek dışı bilgiler ve 5-10 kayıt barındıracak şekilde eklemeniz de yerinde olacaktır.
uygulamanızda herhangi bir soruna veya hataya maruz kalacak olursanız,bu hata veya sorunların gerek isimlerini ayrıntılı belirterek ya da sorunları net ifade ederek ve gerekse de ekran görüntüleri dahi eklemek sureti ile,çözümler arayabilirsiniz.
katılımcılar tarafından,açacağınız konuda uygun görülecek olan gerekli bilgi ya da örnek paylaşımlarının yapılması da mümkün olacaktır.
bilginize...iyi çalışmalar,saygılar.