Yazdırılacak Sayfaya Sayaç Ekleme

[wahap70]

Arkadaşlar Ekte Göndermiş olduğum etiket modelini excelde basmak istiyoruz fakat bu etiketler çuvallara yapıştırılacağı için çuval numaraları gerekiyor Çıktı aldığımda geri doğru sayarak çıkartması gerekiyor sanırım makro ile halledilebilir yardımcı olursanız sevinirim

 

[muygun]

Merhaba İsteğinizi tam anlayamadığım için 2 çözüm oluşturdum.
Birinde her etiket için bir sayfa oluşturuluyor.
Diğerinde ise her çıktıda 2 etiket olacak şekilde tüm etiketler yaz sayfasında oluşturuldu.
İnceleyin.
İyi çalışmalar.

 

[cems]

Dener misiniz ? Sağdaki tuşa basınca gelen diyalogta print sayısını verin , geri değil ileri sayarak basacaktır. Her baskı atışında sayaçlar 1 yukselecektir

Once 2 3 gibi kucuk sayılarla deneyin ve kendi ayarlarınızı kontrol edin. Sayı hanesini ola ki
1000 üzeri basarsınız diye 4 hane yaptım, 9999 a kadar yolu var.

Diğer acıklamalar dosya uzerinde var

Sayın Askm 'nin aşağıda düzelttiği geri doğru sayan Kodların altına , sağlıklı kapatmak için de şu kodları da yapıştırın ve sayfaya yerleştireceğiniz tuşa bağlayın

Sub kapat()
Application.DisplayAlerts = False
 soru = MsgBox("programı kapatmak istiyor musunuz ?", vbYesNo)
 If soru = vbYes Then
 MsgBox " Sayaç temizlenerek program kapatılıyor", vbCritical, "See you later"
 Range("l2").Clear
 ThisWorkbook.Save
 Application.Quit
 Else
 MsgBox " Kapatma işlemi iptal edildi"
 End If
 Application.DisplayAlerts = True
 End Sub

 

[wahap70]

Arkadaşlar Teşekkür ederim emek vermişsiniz.

Merhaba İsteğinizi tam anlayamadığım için 2 çözüm oluşturdum.
Birinde her etiket için bir sayfa oluşturuluyor.
Diğerinde ise her çıktıda 2 etiket olacak şekilde tüm etiketler yaz sayfasında oluşturuldu.
İnceleyin.
İyi çalışmalar.

muygun,
Yazmak istediğim etiket farklı bir sayfada oluşmaması gerekiyor zira diğer sayfada sayfa ayarlarını yapmak şablonunu oluşturmak hayli zor ve fazlaca yer kaplıyor istediğim etiket sayfasındaki çuval no kısmının geriye doğru giderek baskı alınması mesela 500 yazdıysam oraya yazıcıya tıkladığım da 500. sayfadan geri doğru giderek 499-498-497 sayfa çıktı alması ve 1 nolu sayfada durması

 

[wahap70]

Dener misiniz ? Sağdaki tuşa basınca gelen diyalogta print sayısını verin , geri değil ileri sayarak basacaktır. Her baskı atışında sayaçlar 1 yukselecektir

Once 2 3 gibi kucuk sayılarla deneyin ve kendi ayarlarınızı kontrol edin. Sayı hanesini ola ki
1000 üzeri basarsınız diye 4 hane yaptım, 9999 a kadar yolu var.

Diğer acıklamalar dosya uzerinde var

Cems kardeşim senin yaptığın olmuş gibi fakat sayacın geriye doğru çalışması gerekiyor zira etiket makinasından çıktı alındıkça ruloya sarılıyor ve en üstte 1 numaranın kalması gerekiyor

 

[askm]

Kodları aşağıdaki gibi değiştirin.

Sub Printsay()

    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Lütfen basılacak etiket sayısını girin ", "Baskı sayısı ")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "Hatalı giriş, yeniden ve dikkatle deneyin ", vbInformation, "Hata"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = xCount To 1 Step -1
            ActiveSheet.Range("L2").Value = "0000" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

 

[cems]

Sayın Askm ye , güncel işe dalma sebebiyle oluşan boşlukta dosyaya isteğe göre düzeltme ile desteği için teşekkür ederim

Ayrıca kapatma tuşu koyarak ilk mesajıma eklediğim kodları aynı yere alta ilave edip tuşu koda bağlayın, sağlıklı kapansın.

 

[wahap70]

Çok Teşekkür Ederim Arkadaşlar Oldu Şimdi Yazıcıya Her Defasında Komut Gönderdiğinden Dolayı Yavaş Yazıyor Ama Olsun İdare Edeceğiz Tekrar Teşekkür Ederim

 

[cems]

Yavaş Yazıyor

Belki bilgisayarın hafıza hızındandır , ram ne ise ona uyuyor olabilir.

Bu arada her kelimenin baş harfini bilerek mi büyük ve cümleleri noktasız yazdınız ? Okurken sıkıntı ve tekrar okumaya itiyor.

Kolaylıklar dileriz

 

[wahap70]

Belki bilgisayarın hafıza hızındandır , ram ne ise ona uyuyor olabilir.

Bu arada her kelimenin baş harfini bilerek mi büyük ve cümleleri noktasız yazdınız ? Okurken sıkıntı ve tekrar okumaya itiyor.

Kolaylıklar dileriz

Olabilir Ram'den Kaynaklıdır Sanırım. Cümlenin Baş Harflerini Büyük Yazmam Eskiden Kalma Bi Alışkanlık Daha Estetik Görünüyor Diye Başlamıştım Halen Böyle Yazmaktan Alıkoyamıyorum Kendimi Eğer böyle yazarsam sanki estetik görünmüyor gibi geliyor size sıkıntı verdiyse kusura bakmayın lütfen...

 

[asimelo]

eklere ulaşamıyorum. nasıl altın üye olucam