Çözüldü Listview Sıralı Çoklu yazdırma

[muammercaylak78]

Selamün Aleyküm günlük 20 yakın farklı kargo şirketlerine gönderim yapıyoruz. excel sayfasında A4 kağıdıdan 4 lü çıktı alıyorum. Listview den çok seçimleri sırayla yazdırmak istiyorum . daha önce formdan yardım almıştım. 2 li çıktı almak içindi kod aşağıdaki tekrar yardımcı olmanızı istiyorum.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[muammercaylak78]

dosya ektedir

 

[Kuşdili]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[muammercaylak78]

merhaba ben size tam dosyayı ekte gönderiyorum. İlk gönderdiğim dosyada yanlışlık yapmışım. göndermiş olduğunuz kodu kullandım. Yazıcıya iki sayfa olarak gönderiyor. döngü bittikten sonra hiç bir sayfa yazdırılamadı diyor. Ana Menüde Sipariş yazdır diye bir buton var onu inceleyebilirmisiniz. Birde açılan listviewde 14 sutun excel sayafasında " O " sunutundaki bilgilerin gelmesi lazım.[/CODE]

 

[Kuşdili]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Kuşdili]

merhaba ben size tam dosyayı ekte gönderiyorum. İlk gönderdiğim dosyada yanlışlık yapmışım. göndermiş olduğunuz kodu kullandım. Yazıcıya iki sayfa olarak gönderiyor. döngü bittikten sonra hiç bir sayfa yazdırılamadı diyor. Ana Menüde Sipariş yazdır diye bir buton var onu inceleyebilirmisiniz. Birde açılan listviewde 14 sutun excel sayafasında " O " sunutundaki bilgilerin gelmesi lazım.[/CODE]

Sipariş Listesi sayfasında "O1" hücresine herhangi birşey yazın, A1'den buraya kadar "A" yazılmış, burası boş kalmış. Yine A yazın, usulü devam ettirelim. Sütun sayısını buradan hesap ettiği için eksik kalıyordu. Bu şekilde sütunları aldırdık. Son olarak SiparisGirisi ve Yazici userformlarında bulunan ListView1 isimli ögelerin Properties kısmında Width değeri 1254 verilmiş. Bu da fazla geliyor. Bu değeri 1000'e düşürün. Hepsi görüntülenecektir.

 

[muammercaylak78]

Sipariş Listesi sayfasında "O1" hücresine herhangi birşey yazın, A1'den buraya kadar "A" yazılmış, burası boş kalmış. Yine A yazın, usulü devam ettirelim. Sütun sayısını buradan hesap ettiği için eksik kalıyordu. Bu şekilde sütunları aldırdık. Son olarak SiparisGirisi ve Yazici userformlarında bulunan ListView1 isimli ögelerin Properties kısmında Width değeri 1254 verilmiş. Bu da fazla geliyor. Bu değeri 1000'e düşürün. Hepsi görüntülenecektir.

sipariş listesindeki "O1" hücresini düzelttim.Bilgisayarı yeni aldım diğer bilgisardaki office 2010 du bu bilgisayardaki office 2021 plus listview Properties açamıyorum. hata veriyor. Düzenlediğiniz kodu uyguladım çalışmada problem yok yazıcıya gönderiyor .sıkıntı görseldeki "A" sunundaki sıra numarasıı veriyor onu vermeyecek. "O" sutundaki cari kodunu getirmesi gerekiyor.

 

[muammercaylak78]

Sipariş Listesi sayfasında "O1" hücresine herhangi birşey yazın, A1'den buraya kadar "A" yazılmış, burası boş kalmış. Yine A yazın, usulü devam ettirelim. Sütun sayısını buradan hesap ettiği için eksik kalıyordu. Bu şekilde sütunları aldırdık. Son olarak SiparisGirisi ve Yazici userformlarında bulunan ListView1 isimli ögelerin Properties kısmında Width değeri 1254 verilmiş. Bu da fazla geliyor. Bu değeri 1000'e düşürün. Hepsi görüntülenecektir.

Hocam şu kodu kullanarak sorun çözüldü sanırım "listsubitems kulandım " detaylı bir şekilde kullanıp dönüş yapacağım.


Select Case say
Case 1
krg.Cells(9, 2).Value = ListView1.ListItems.ListSubItems(14).Text
Case 2
krg.Cells(9, 17).Value = ListView1.ListItems.ListSubItems(14).Text
Case 3
krg.Cells(26, 2).Value = ListView1.ListItems.ListSubItems(14).Text
Case 4
krg.Cells(26, 17).Value = ListView1.ListItems.ListSubItems(14).Text
End Select

 

[muammercaylak78]

sipariş listesindeki "O1" hücresini düzelttim.Bilgisayarı yeni aldım diğer bilgisardaki office 2010 du bu bilgisayardaki office 2021 plus listview Properties açamıyorum. hata veriyor. Düzenlediğiniz kodu uyguladım çalışmada problem yok yazıcıya gönderiyor .sıkıntı görseldeki "A" sunundaki sıra numarasıı veriyor onu vermeyecek. "O" sutundaki cari kodunu getirmesi gerekiyor.

yardımınız için çok teşşekür ederim ellerinize sağlık hocam. işimi oldukça kolaylaştırdı.