Selam Arkadaşlar;
nicelabel5 kullanan varmıdır bilmiyorum. problemimi konularda mesajlarda arattım ama bulamadım.
problem şu; nicelabel'da
Excel verilerini kullanıyorum yazdırırken görev yöneticisinde her yazdır dediğim anda nlabel5 çalışıyor bu normal ama kapattığım zaman buradan gitmiyor kaç defa yazdır demişsen hepsinde görev yöneticisinden açılıyor açık kalmasıda yazdırmak için bekleme süresini yükseltiyor. yazdırma işlemini excel'de makrodan yaptırıyorum. ne zaman
Excel sayfasını kapattım ozaman görev yöneticisindeki açılmış olan nlabel'larda kapanıyor. benim istediğim makronun içine nasıl bir kod yazayım ki görev yöneticisindeki çalışmayan açıkta kalmış nlabel işlemini sonlandırsın yada yazdırma işlemi bitince sonlandırsın.
şimdiden teşekkür ederim
hepinize kolay gelsin.
Sn:starturk
Anlatmaya çalıştığınızdan herhangi bir şey anlamadım örnek eklermisiniz.
Sn: Oğulcan92
örnek ancak makronun kullandığı linkte verdiğim kodu ekleyebilirim örnek olabilecek şey bir program
makro bir job dosyası çalıştımakta jobda yazılı kod şu;
LABEL"C:\............."
PRINT VARIABLE
QUIT
exceldeki makro ilgili job dosyasını açmakta job nicelabel programı aracılığıyla istediğim veriyi print etmekte bu arada görev yöneticisinde nicelabel açılıp işlem yapılıyor gösteriyor fakat yazdırma işlemi bittikten sonra quit'e göre işlem sona erdiğinde görev yöneticisinde hala işlem yapıyormuş gibi onlarca nicelabel görülüyor.
Sn:starturk
Eğer excelden veya formdan yazdırma işlemini yaptıktan sonra kapat butonuna aşağıdaki kodu deneyiniz.
Sn:starturk
Hemen hemen aynı özellikler sahip bir yazdıma programını
Excel UserFormdan kulanılmış kodları size fikir verbilir.
Kod:
Dim MRobj As Object
Private Sub cmdYazdir_Click()
If ListBox1.Text <> "" Then
MRobj.StartReport (ListBox1.Text)
Else
MsgBox ("Raporda Yazılacak Birşey Yok")
End If
End Sub
Private Sub cmdKapat_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim cnt As Integer
Dim i As Integer
Set MRobj = CreateObject("MetaReport.MetaReportApp")
MRobj.parentwindow = Application.Hwnd
MRobj.ProjectsPath = "C:\MetaReports"
cnt = MRobj.ReportCount
For i = 0 To cnt - 1
Me.ListBox1.AddItem MRobj.ReportID(i)
Next i
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set MRobj = Nothing
End Sub
Sn:ogulcan92
göstermiş olduğunuz ilgiden dolayı teşekkür ederim. kodu inceleyip hemen yazıp size olumlu yada olumsuz cevap yazacağım.
bir önceki mailinize istinaden
ekte gönderdiğim resimde açılmış olan nlabel5 dosyaları var gerçekte çalışmamasına rağmen orada çalışıyormuş gibi bulunuyor onların kodla kapatılmasını istiyorum
Sn: Ogulcan92
gönderdiğiniz örneği alıp uyarladım ama istediğim sonucu yine elde eldemedim. nicelabel programı kapanıyor ama zannediyorum ki
Excel ile bağlantısı (kopmuyorki) ecell açık kaldığı sürece görev yöneticisinde çalışıyor görülüyor.
selam arkadaşlar
kaç zamandır bunun çözmeye çalıştım ama hala bir adım yol alamadım.
yeni bir örnek ekliyorum belki örneği görünce daha değişik fikirler doğacaktır.
arka pencerede görülen excel'deki verileri köprü yardımıyla çalıştır dediğimde job dosyasını okuyor job dosyasında belirtilen nicelabell5 programının ilgili dosyası açılarak yazdırma işlemi gerçekleşiyor ve nicelabell5 kapanıyor ancak görev yöneticisinde kapanmamış görülüyor. her yazdır dediğimde görev yöneticisinde bir nicelabell5 açtığından kaç defa yazdır körüsüne basmışsam sistem yöneticisinde o kadar açık nicelabell5 görülüyor. bu sayı çoğaldıkça yazdırmak için bekleme süreside aynı oranda yükseliyor. excel'i kapatıyorum görev yöneticisine bakıyorum excel'de açık gibi görülüyor. görev yöneticisine gelip excel'i sonlandır dediğimde hem
Excel sonlanıyor hemde kaç tane nicelabell5 varsa onlar sonlanıyor.
yapmak istediğim; excellde çalışan küçük birde macro var bu makronun sonuna nasıl bir kod ekleyeyim ki görev yöneticisini hiç açmadan orada açıkmış gibi görülen nicelabell5'leri sonlandırabileyim.
saygılar