Yazıcıdan kaç kez çıktı alındı

[Civan Jack]

Selamlar,

Şirkette kullandığımız yazıcının 1 kartuş'la ne kadar yazdığını öğrenmek için, bir kod kullanabilir miyiz acaba ?

Kaç sayfa çıktı aldığımızın kaydını tutabilecek bir şey lazım aslında.

Yeni kartuşu taktığımda, örneğin; sayfa1 deki A1 hücresine 0 yazıcam ve yazıcıya her gönderdiğim sayfanın adedini artarak A1 hücresine yazacak.
Bu sayede, dolu 1 kartuşla kaç sayfa yazdırabiliyoruz onu öğrenmiş olacağız.

Genelde sorarlar, ortalama kaç çıktı alabiliyoruz diye. Ona cevap olarak ve genel bir bilgi olarak, böyle birşey yapılabilirse çok iyi olacağını düşünüyorum.

Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Uygulanan kod; (ThisworkBook bölümüne uygulayın)

Option Explicit
 
Private Sub Workbook_Activate()
    Kontrol = True
    Application.OnKey "^p", "YAZDIR"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^p", ""
End Sub
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Kontrol = True Then
    Cancel = True
    YAZDIR
    End If
End Sub
 
Private Sub Workbook_Deactivate()
    Application.OnKey "^p", ""
End Sub

Boş bir modüle;

Option Explicit
Public Kontrol As Boolean
 
Sub YAZDIR()
    Dim YAZICI As Boolean
    
    Kontrol = False
    
    YAZICI = Application.Dialogs(xlDialogPrint).Show
 
    If YAZICI = False Then
        MsgBox "İşleminiz iptal edilmiştir.", vbExclamation
        Kontrol = True
        Exit Sub
    Else
        Sheets("Sayfa1").Range("A1") = Sheets("Sayfa1").Range("A1") + 1
    End If
    
    Kontrol = True
End Sub

 

[Civan Jack]

Merhaba Korhan bey, mesajınız için teşekkür ederim, bunu ayrıca arşivime ekledim.
Ama maalesef yapmak istediğim olay bu şeklide değil.

Şöyle anlatayım size;
Bizim şirkette excelde fiyat hesapladığımız bir program var, A1 hücresine firma ismi girdiğimde o isimle teklif klasöründe yeni bir klasör oluşturuyor, A2 hücresine yazdığım veriyi de kitap ismi olarak ilgili firma klasörünün içine kaydediyor. Kaydet tuşuna bastığımda farklı kaydediyor.

Sürekli aynı programı kullanıyorum. Sizin vereceğiniz kodu sayfanın kod sayfasına yazdığımda ve o kitabı farklı kaydettiğimde kaydettiğim kitap üzerinden çalışacağım ve o kitabı yazdıracağım, yazdırdıktan sonra yeni bir fiyat çıkarmak istediğimde yine fiyat teklifi şablonuna yani ilk dökümana geri döneceğim.

Böyle bir uygulamada bahsettiğim konuyu yapabilir miyiz acaba ?

Teşekkür ederim.
İyi akşamlar.

 

[Korhan Ayhan]

Selamlar,

Sizler soru soruyorsunuz bizlerde elimizden geldiğince yazdığınız mesajlara göre yanıt vermeye çalışıyoruz. Vermiş olduğum yanıt ilk mesajınıza göre istenilen sonucu vermektedir. Fakat sonra ne oluyorsa birden sorunun içeriği yön değiştiriyor ve istekler farklılaşıyor. Sonra diyorsunuz ki önerdiğiniz kod istediğim gibi çalışmadı.

Kusura bakmayın ama benim anlamadığım neden son mesajınızdaki yazdıklarınızı ilk mesajınızda yazmadınız?

Bizleri sürekli olarak sizleri uyarmak zorunda bırakıyorsunuz. Açıklayıcı bir dille soru sormak bu kadar zor mudur?

 

[Civan Jack]

Selamlar,

Sizler soru soruyorsunuz bizlerde elimizden geldiğince yazdığınız mesajlara göre yanıt vermeye çalışıyoruz. Vermiş olduğum yanıt ilk mesajınıza göre istenilen sonucu vermektedir. Fakat sonra ne oluyorsa birden sorunun içeriği yön değiştiriyor ve istekler farklılaşıyor. Sonra diyorsunuz ki önerdiğiniz kod istediğim gibi çalışmadı.

Kusura bakmayın ama benim anlamadığım neden son mesajınızdaki yazdıklarınızı ilk mesajınızda yazmadınız?

Bizleri sürekli olarak sizleri uyarmak zorunda bırakıyorsunuz. Açıklayıcı bir dille soru sormak bu kadar zor mudur?

Çok haklısınız Korhan bey, afedersiniz.
İlk mesajda işten çıkmak üzereydim, alelacele yazdım, o yüzden tam anlatamadım biliyorum. Bugün cumartesi olmasına rağmen sabahtan beri ancak müsait olabildim ve eve gelince ilk işim siteye girip bakmak oldu.
Mesajınızda haklısınız. Elinizden geldiğince yardımcı olmaya çalışıyorsunuz, Allah sizden razı olsun.

Yine de cevap yazar mısınız bilmiyorum.
Canınız sağolsun.

İyi geceler.

 

[tezcan1]

çok teşekkür ederim güzel bir çalışma olmuş inşallah başka verde lazım olur kullanırsam kulaKLARIN ÇINLASIN

 

[slmnkc]

çokteşekkürler

 

[baydeniro]

Çok teşekkürler sayın Korhan Ayhan, elinize bilginize sağlık