• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü vba kod ile zarf yazdırma

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Onurovski

Yeni Üye
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel V
Office 2010 TR
Konu Sahibi
Merhaba .Ekteki Exceldeki makro bir dotx dosyasını bağlı .Dotx dosyası eklenemediğinden onu yükleyemiyorum.Zarf yazdır dendiğinde zarfın üstüne maaşı primi kesintisi çıkıyor. Ancak ben üstüne işaretlenen kişinin değil de hepsinin çıkmasını istiyorum . Bir de bu yazının alt alta değil de bir tablo gibi gözükmesini zarfın üstünde.
Örneğin maaş prim kesinti tablonun sol tarafında ,paralar ise sağ tarafında gibi .
Ve para birimi tabloda gözükmesine rağmen wordde çıkmıyor.
Yardımcı olursanız çok sevinirim .
Şimdiden teşekkür ederim
 
Konu anlaşılır değil. Ayrıca zarf üzerine ilave yazılacak bilgiler nerede. Örnek şablon hazırlanırsa uygun olacağı kanaatindeyim.
 
Konu Sahibi
Merhaba dotx dosyası yüklenemediğinden gösteremiyorum .
wordden zarf şablonlu bir dotx dosyası yaparsanız(ismide envelope olacak) ne dediğimi daha net anlayabilirsiniz.
içindeki maktoyu inceleyebilirsiniz .
 
zarf örneğini de eklerseniz üzerine gelecek bilgiler ile birlikte iyi olur
 
Konu Sahibi
dotx dosyası yüklenemiyor. Yeni bir Word açıp .Dosya kısmından yeniye bastığınızda şablonlar gelecektir. Zarf şablonu seçip kaydederseniz .Wordün ismini de "Envelope" yaparsanız çalışacaktır. Ama gördüğünüz gibi sadece 1 isim için çalışıyor. Ben bütün tablo yazılsın istiyorum .
 
HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.

dosya çalışmıyor bizde word şablon yok . Bu nedenle zarfa ne nasıl yazılacak ise onu belirtmenizi istemiştim
 
Konu Sahibi
zarf yazdıra bastığınızda ,word açılıyor . Wordden Kişinin İsmi Mesai -Prim Kesinti Toplam olarak tek sayfada gözülüyor.Ama sadcece 1 kişi (seçtiğiniz kişinin ) gözüküyor.Ben hepsinin gözükmesini istiyorum .
 
Dotx dosyanızı zip formatında sıkıştırıp buraya yükleyiniz.
 
Sayın Onur bey. Kaç gündür merak edip sorunuzu tıklıyorum. Benim ofisimde bahsettiğiniz şablon yok. Adnan ve Patron beylerde de olmadığı belli. Ekli zip içinde de şablon dosyası yok. Dotx uzantılı dosyanızı yüklerseniz meraktan kurtuluruz.
 
Konu Sahibi
Merhaba ilginiz için teşekkür ederim . Zip dosyası olarak beraber yüklemeye çalışayim . Dotx dosyasını forum kabul etmediğinden o formatda yükleyemiyorum.Çalışma adlı excel dosyasının 3.sekmesi "zarf yazdırma" sekmesini tıkladığınızda karşınızda isimler geliyor . Herhangi bir isimin üstüne tıklayıp zarf yazdır butonuna tıkladığınızda "envolope "dosyası açılıyor .operatör ismi -primi kesintisi yazılıyor.
Ancak bu kod tek kişi üstünde çalışıyor.Ben bütün satırların aynı anda yazılmasını istiyorum .Ve aldıkları para birimide yazdırmada çıkmıyor.Onun da çıkmasını istiyorum.
 
Konu Sahibi
Çok teşekkür ederim .Formülleri kopyaladım .Ancak hata veriyor .Excel dosyasını formüllü olarak yüklemeniz mümkün mü ?
Envolope.dotx dosyası masaüstünde mi olmak zorunda ?
Tekrar teşekkür ederim
 
Masaüstünü ben ayarlamadım, sizden öyle geldi. İlgili satırı istediğiniz şekilde düzenleyin.
sPath = Environ("USERPROFILE") & "\Desktop\Envelope.dotx" 'change as required
Formüllere de hiç dokunmadım, sizden nasıl geldiyse öyle. Bende de açtığımda hatalı gibi göründü.
Bul kutusuna = değiştir kutusuna = yapıp tümünü değiştir yaptım düzeldi. Yani bir nevi hesaplamada refresh olayı yaptım.
 
Konu Sahibi
Dediğinizi anladım .ancak aşşağıdaki koddan hata veriyor.Onun için sormuştum
onu sildiğimde tek satırı tl ile göstererek yazdırabiliyorum .Ama aşşağıdaki kodu anlayamadım
wdApp.Documents.Add Template:="C:\Users\Yedek hesap\Desktop\Envelope.dotx", _
NewTemplate:=False, DocumentType:=0
Set wdDoc = wdApp.ActiveDocument
 
Bu satırı silin
wdApp.Documents.Add Template:="C:\Users\Yedek hesap\Desktop\Envelope.dotx", _
NewTemplate:=False, DocumentType:=0
Bunu yazın
Set wdDoc = wdApp.Documents.Add(Template:=sPath)
 
Konu Sahibi
Son haline bakabilirsiniz. *TL olayı çözüldü .ancak hepsini yazdırma olayını çözemedim .Sizin formülünüzü yazmama rağmen hala tek seçilen satır yazdırmaya hazır gözüküyor.Tekrar teşekkür ederim ilginiz ve çabanız için .
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst