Çözüldü Sütun içeriğine göre baskı yapmak

rahmiserifoner' Alıntı:

Merhabalar,

Elimde İstanbul'un bölge, ilçe, mahalle, adres başlıklarından oluşan bir liste var. Bu liste belirli bir formatta. Format değiştirmeden, Her mahalleye göre ayrı ayrı baskı almak durumundayım. bu işlemi nasıl yapabilirim? Şimdiden teşekkür ederim.

Genişletmek için tıklayın ...

Merhaba,
Öncelikle forumumuza hoşgeldiniz.
Lütfen sorunuza dosyanızın aslını veya aslına benzer örnek bir dosya ekleyiniz.
Forumumuzun Soru-Cevap bölümünde (yani burada) dosya eklemek ve indirmek ücretsizdir.

rahmiserifoner' Alıntı:

Merhabalar,

Elimde İstanbul'un bölge, ilçe, mahalle, adres başlıklarından oluşan bir liste var. Bu liste belirli bir formatta. Format değiştirmeden, Her mahalleye göre ayrı ayrı baskı almak durumundayım. bu işlemi nasıl yapabilirim? Şimdiden teşekkür ederim.

Genişletmek için tıklayın ...

Dosya eklendi. İlginize teşekkürler...

rahmiserifoner' Alıntı:

Dosya eklendi. İlginize teşekkürler...

Genişletmek için tıklayın ...

Ayrı ayrı baskı almak derken?
Ekli dosyayı görüntüle 7285
Bu başlıklardaki verilere göre filtreleme yapmak işinizi görmüyor mu? İsteğiniz ne tam anlayabilmiş değilim.

rahmiserifoner' Alıntı:

Dosya eklendi. İlginize teşekkürler...

Genişletmek için tıklayın ...

Ayrı ayrı baskı almak derken?

Bu başlıklardaki verilere göre filtreleme yapmak işinizi görmüyor mu? İsteğiniz ne tam anlayabilmiş değilim.

Öncelikle cevabınız için teşekkür ederim.Fakat halihazırda bu şekilde idare ediyorum. Ben Mahalle leri kendi kendine algılayarak tek tuş ile baskı yapmasını istiyorum. Teşekkürler

Merhabalar.

-- Sayfada yazdırma alanı dışında uygun bir hücreye (örneğin A1 hücresi), bir düğme/şekil/metin kutusu ekleyin,
-- Alt taraftan işlem yapılacak sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılacak VBA ekranında sağdaki boş alana aşağıdaki kodu yapıştırın, (koddaki sayfa adının doğrluğundan emin olun)
-- Sayfaya eklediğiniz şekile/metin kutusuna fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Karşınıza gelecek küçük ekranda aşağıdaki makronun adını seçerek işlemi onaylayın.

Sayfadaki bu nesneye fareyle tıkladığınızda; R sütunundaki FARKLI her değer için alan filtrelenir ve yazıcıya gönderilir.


.

Ömer Bey merhaba. Desteğiniz için teşekkür ederim. Fakat benim atladığım bir nokta var. O da şudur; "P" sütununda bulunan operasyon bölgesinde örneğin Bayrampaşa var mahallesi ise merkez olarak geçiyor. Fakat Bağcılarda da Merkez mahallesi var ve bunlarında birbirinden ayrı şekilde basılması gerekiyor. Ayrıca sadece ilk satırda B-C-D satırlarını basıyor, alt satırlarda basmıyor. Birde sadece yazdırma alanının basılmasını istiyorum. Son olarak ta her dolu sayfadan sonra bir adet boş sayfa çıkarıyor. Ek olarak dosya ekledim. Yardımcı olursanız çok sevinirim.

Gerçek belgenizde SAYFA DÜZENİ menüsü üzerinden, yazdırılacak alanını (başlıklar dahil, son veri satırına kadarki alan) ayarlayın.
SAYFA YAPISI ayarlarında ÜSTTE YİNELECEK SATIRLAR bölümüne başlık kısmının adresini fareyle seçerek yazılmasını sağlayın.

Ardından bir önceki cevapta verdiğim kodun yerine aşağıdakini kullanın.
Bu kod, P ve Q sütunlarına göre benzersiz değerler için filtre uygulayıp yazıcıya gönderir.


.

Böyle bir hata veriyor şuan. Ne yapabilirim?

Hatalı haliyle dosyayı ekleyin ki anlayabileyim.

Ben size hem hata aldığım örnek dosyayı hem de orijinal dosyayı gönderiyorum. Nerde hata yaptığımı açıklarsanız sevinirim. Birde yazıcı ağ da herkesin kullanımında olan bir yazıcı. Bu yüzden hata alıyor olabilirmiyim?

Eklediğinizbelgelere eklenmiş bir makro kodu yok.
Verdiğim koddaki sayfa adının, belgenizdeki sayfa adıyla aynı olduğunu kontrol ederek danayin.

.

Kusura bakmayın. Makro konusunda bilgi sahibi değilim. Gönderdiğim orijinal dosyada uygulama yaparak gönderebilir misiniz? Teşekkürler...

Bu arada dediğiniz gibi kayıt işlemini yapıyorum ama kapatıp tekrar açtığımda makro boş geliyor.

Makro olarak kayıt yaptım şuan ve hata alıyorum. Dosya ektedir.

Ben son eklediğiniz belgede herhangi bir hata almıyorum.
-- Office 64 bit olmasıyla ilgili bir sorun olabilir (benim kullandığım 32 bit olduğndan deneme şansım yok).
-- Bilgisayarınıza bağlı bir yazıcı olduğundan ve yazıcının açık olduğundan emin misiniz?

.

Yazıcı sürekli açık durumda. Manuel olarak gönderdiğim ciktilarda sorun almıyorum. Sizce nasıl çözülebilir problem?

Bilgisayarda değilim.Koddaki .Range(alan).PrintOut şeklindeki kod satırının sol başında NOKTA karakterinin olduğundan ve o satırın en solunda da TEK TIRNAK işareti olmadığından eminsiniz değil mi?
İsterseniz bir de ilgili satırın üstüne .Range(alan).PrintPreview diye yeni bir satır ekleyin (yazdığım gibi sol başta NOKTA olmalı) .
Bu satır BASKI ÖNİZLEME ekranını açmış olmalı.

.

Tamamdır. Kusura bakmayın sizi de uğraştırıyor um. Bende PC başında değilim. Yarın deneyip sonucu size bildireceğim.