Listview Listesinden Seçilen Sayfayı Yazdırma

@mars2
Gereksiz yazışma oluşmaması bakımından;
sorularınızı, ekran görüntüsü yerine gerçek belgenizin özel bilgi içermeyen bir kopyası üzerinden sorarsanız iyi olur.

Ömer BARAN' Alıntı:

@mars2
Gereksiz yazışma oluşmaması bakımından;
sorularınızı, ekran görüntüsü yerine ger

Ömer BARAN' Alıntı:

@mars2
Gereksiz yazışma oluşmaması bakımından;
sorularınızı, ekran görüntüsü yerine gerçek belgenizin özel bilgi içermeyen bir kopyası üzerinden sorarsanız iyi olur.

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

çek belgenizin özel bilgi içermeyen bir kopyası üzerinden sorarsanız iyi olur.

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

Örnek dosya hazırlayarak ekte sunulmuş olup

Private Sub UserForm_Initialize()
Set S1 = Sheets("Konu")
With ListView2
.View = Ivwreport
.View = Ivwreport satırında variable nıt defien hatası vermekte

Private Sub UserForm_Initialize()
satırını Private Sub UserForm4_Initialize() yaptığımda hata gitmekte ancak, listview de liste (Zarf, Zarf (1), Zarf (2)) gözükmemektedir.

Userform üzerinde bulunan butonla, Listview deki listeden seçtiğim sayfayı yazdırmak

Ivwreport ibaresinin baş harfi Isparta değil Lüleburgaz olacak.
Kullandığım bilgisayarda YAZICI kurulu değil ama, yazdırma kısmında esas olarak bir sorun göremedim.
Sadece hiçbir sayfa ismi seçilmeden düğmeye tıklanma seçeneğini dikkate almak bakımından yazdırma kodunu şöyle değiştirin.

Ömer BARAN' Alıntı:

Ivwreport ibaresinin baş harfi Isparta değil Lüleburgaz olacak.
Kullandığım bilgisayarda YAZICI kurulu değil ama, yazdırma kısmında esas olarak bir sorun göremedim.
Sadece hiçbir sayfa ismi seçilmeden düğmeye tıklanma seçeneğini dikkate almak bakımından yazdırma kodunu şöyle değiştirin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(13 satır)

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

Sayın Ömer Baran;
Kod yardımınız için teşekkürler; ancak, Listview2 listesindeki 1. sıradakini seçince yazdıyor, 2. sıradaki seçince yazdırrmıyor. 1. Sıradaki zarf sayfasını 2. sıraya aldığımda 1. sıradaki zarf(1) yazdırıyor 2. sıradaki yazdırmıyır, yazıcıdan çıktı alamıyorum. Neden olabilir.

@mars2
KONU isimli sayfadaki sayfa isimlerinin doğru ve belgenizdeki sayfa sırasına göre yazıldığından emin misiniz?

Ömer BARAN' Alıntı:

@mars2
KONU isimli sayfadaki sayfa isimlerinin doğru ve belgenizdeki sayfa sırasına göre yazıldığından emin misiniz?

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

Evet, Konu sayfasında, isimlerinin yerlerini değiştirdiğimde ilk sıradakini yazdırmakta, ikinci ve üçüncü sıradakini yazıcıya gönderiliyor gözükmesine rağmen yazıcıdan çıktı vermiyor.

Konu sayfasının
Sayfa (G1) - Başlık
Zarf (G2)
Zarf (1) (G3)
Zarf (2) (G4) şeklinde
Bunu
Sayfa (G1) - Başlık
Zarf (1) (G2)
Zarf (G3)
Zarf (2) (G4) şeklinde yaptığımda "G2" hücrsindeki Sayfa (G1) sayfasını yazdırıyor, diğerleeri işaretlemem rağmen çıktı vermiyor,

mars2' Alıntı:

Evet, Konu sayfasında, isimlerinin yerlerini değiştirdiğimde ilk sıradakini yazdırmakta, ikinci ve üçüncü sıradakini yazıcıya gönderiliyor gözükmesine rağmen yazıcıdan çıktı vermiyor.

Konu sayfasının
Sayfa (G1) - Başlık
Zarf (G2)
Zarf (1) (G3)
Zarf (2) (G4) şeklinde
Bunu
Sayfa (G1) - Başlık
Zarf (1) (G2)
Zarf (G3)
Zarf (2) (G4) şeklinde yaptığımda "G2" hücrsindeki Sayfa (G1) sayfasını yazdırıyor, diğerleeri işaretlemem rağmen çıktı vermiyor,

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

Konu sayfasının
Sayfa (G1) - Başlık
Zarf (G2)
Zarf (1) (G3)
Zarf (2) (G4) şeklinde
Bunu
Sayfa (G1) - Başlık
Zarf (1) (G2)
Zarf (G3)
Zarf (2) (G4) şeklinde değiştirdiğimde, "G2" hücrsindeki Zarf (1) sayfasını yazdırıyor, diğerlerini işaretlememe rağmen çıktı vermiyor,

Excel kullanıcısının daha dikkatli olmasını beklerdim doğrusu.
Sayfa isim listesini, alt taraftaki sayfa isimlerini kopyalayarak listeye yazarsanız sorun kalmaz.

Kodlamada bir sorun yok.

Ömer BARAN' Alıntı:

Excel kullanıcısının daha dikkatli olmasını beklerdim doğrusu.
Sayfa isim listesini, alt taraftaki sayfa isimlerini kopyalayarak listeye yazarsanız sorun kalmaz.

Kodlamada bir sorun yok.

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

Sayın Ömer Barkan;
Yardım, ilgi ve yazmış olduğunuz koddan dolayı da teşekkürler.
Ben kodda bir sorun olduğunu beyan etmedim. Sadece yanlış bir şey yapmış olabilecğimi düşündüğümden.
Yukarıda önerileriniz uygulmama ve yeni sayfa eklme ve kopyalama rağmen "Konu" sayfasının G sutunundaki sayfa isimlerinde herhangi bir yanlışlık bulunmamaktadır. Listviewe , sayfa isimleri gelmekte, ancak G2 hücresinde yazılı sayfanın çıktısını almaktayım. G3 hücresinde yazılı sayfayı işaretlediğim zaman yazcıya gönderildi msgbox çıkmakta ancak yazıcıdan sayfanın çıktısını alamamaktayım. G2 hücresine G3 hücresindeki isimle yer değiştirdiğimde Listview de 1. sıradaki sayfanın çıktısını almaktayım. Bunun neden kaynaklanabileceğini hakkında bişgi edinmek istemiştim.

Bendeki belgeyi ekleyeyim en iyisi.
Kodun işleyişiyle vs hiçbir bağlantısı yok ama, işlemin gerçekleştiğinin anlaşılması için
yazdırılan sayfanın B1 hücresine kaç kez yazdırıldığı bilgisi işleniyor durumda.
Bu kısım önemli değil, isterseniz koddaki bununla ilgili kısmı silebilirsiniz.

Sayın Hocam
Teşekkürler, siizn örneğği ind,rdim ancak aşağıdaki hata vermektedir.
Daha önceden
Ivwreport ibaresinin baş harfi Isparta değil Lüleburgaz olacak.
yapılmasına rağmen

Belki EXCEL versiyonunuz ile ilgili bir sorundur bilemiyorum.

Dosyayı indirip denediğimde bir soruna rastlamadım.
İsterseniz bir de; VBA ekranını açıp With ListBox2 satırının üstüne, ListBox2.View = Ivwreport şeklinde bir satır ekleyip,
With ListBox2 satırının bir altındaki Ivwreport satırını silerek deneyin.
Belirttiğim eklemeyi yaparken, buradan kopyalama yapmayın, ListBox2.View = kısmını yazdığınızda karşınıza gelecek listeden
Ivwreport seçeneğini fareyle seçerek o kısmın otomatik yazılmasını sağlayın.

Siz 64 bit ile ListView çalıştırabiliyor musunuz @mars2 ?

admin' Alıntı:

Siz 64 bit ile ListView çalıştırabiliyor musunuz @mars2 ?

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

evet office programım 64 bit

64 bit ve ListView birbirini hiç sevmez.
Çünkü 64 bit ListView desteklemez...
Ben 2010 yılında bu iki kelimeyi mümkün olduk.a bir arada kullanmamaya karar verdim.
Size kolaylıklar dilerim.

Lonu hakkında ve yardımlarınız için teşekkürler

Listview Görünmeme ve Ekleyememe siz yine de linki bir inceleyin.
Ama size önerim, vakit kaybetmeden 64 bit yerine 32 bit Ofis yüklemeniz olacaktır.

@mars2 eğer ListView sizde çalışıyorsa, Ömer ağabeyin eklediği ve sizin hata aldığınız satırdaki kodların, = lvwReport kısmını silin. Daha sonra kendiniz, .View'den sonra bir boşluk bırakıp, = deyin.
Sonra tekrar boşluk bırakın ve gelen listeden ilgili seçeneği seçin.
Bende de ilk o kısım hata verdi ama bahsettiğim şekilde olunca düzeldi.
Eğer 64 bit olmanıza rağmen, sizde çalışıyorsa; bu seçeneği denemenizde fayda olur.