Listboxtakileri print almak.

[Orion1]

Merhaba arkadaşlar.
formad 2 tane buton var birisi listboxta listelenenleri yazdırmak için birisi listboxtan seçilen veriyi yazdırmak için.
Listboxta listenenleri yazdırıken başlık olarak,Listboxta listenenler yazdırılıyor ,Seçilen için başlık listboxta seçilemn yazdırılıyor olacak şekilde nasıl yazdırma yapabiliriz.
Teşekkür ederim

 

[Taruz]

Merhaba Evren bey..

Sihirbaz yardımı ile tablonuzdan bir rapor oluşturunuz ve Kayıt Kaynağını bu sorgu ile değiştiriniz..:

[COLOR=#0000ff]SELECT[/COLOR] ID, Ad, Tel, Cep, email, adres 
[COLOR=#0000ff]FROM[/COLOR] Telefon 
[COLOR=#0000ff]WHERE[/COLOR] Ad [COLOR=#0000ff]Like[/COLOR] [COLOR=#6ebb2b]Forms[/COLOR][COLOR=#808080]![/COLOR]Telefon[COLOR=#808080]![/COLOR]TextBox9 [COLOR=#808080]&[/COLOR] [COLOR=#ff0000]"*"[/COLOR]

Sonrasında formunuzdaki Listeleneni Yazdır düğmesine bu kodu,

DoCmd.OpenReport [COLOR=#fb0000]"Telefon"[/COLOR], acViewPreview

Seçileni Yazdır düğmesine de aşağıdaki kodu yazınız..

DoCmd.OpenReport [COLOR=#fb0000]"Telefon"[/COLOR], acViewPreview, [COLOR=#fb0000]""[/COLOR], _
    [COLOR=#fb0000]"[Telefon]![ID]=[Forms]![Telefon]![Liste0]"[/COLOR]

 

[Orion1]

Üstadım teşekkür ederim.Oldu .Ancak ufak bir sorun kaldı.
Priview formun arkasında kalıyor.Ve yazdırma olmuyor.Gerçi bende printer yok ama sanal yazıcı var onda yazdırması lazım ama yazdırmıyor.Dosyaya bir bakarmısınız.

 

[Taruz]

Reporun özelliklerinden Diğer sekmesinde bulunan Kalıcı ve Açılan Özelliklerini Evet olarak ayarlayınız..

Direkt yazdırsın istiyorsanız da kodların içindeki acViewPreview kısmını siliniz..

 

[Orion1]

Reporun özelliklerinden Diğer sekmesinde bulunan Kalıcı ve Açılan Özelliklerini Evet olarak ayarlayınız..

Direkt yazdırsın istiyorsanız da kodların içindeki acViewPreview kısmını siliniz..

Tamam şimdi printprivew önde gözüküyor ama hala print alamıyorum.

 

[Taruz]

Bir de acViewPreview kısmını acViewNormal olarak değiştirip deneyiniz..

 

[Orion1]

Bir de acViewPreview kısmını acViewNormal olarak değiştirip deneyiniz..

Üstadım şimid yazdırıyor ama ön izleme yapmıyor.Hem ön izleme yaptırıp hemde yazdırma yapabilirmiyiz.
Verdiğiniz kodu aşağıdaki gibi kullandım.

DoCmd.OpenReport "Telefon1", acViewNormal

 

[Taruz]

Evren Bey rapor açıldıktan sonra yazdırma komutu dosya menüsünden verebildiği gibi rapora özel menülerde oluşturulabilir.. Ya da iki komutu üst üste çalıştırıp aynı anda hem yazdırıp hem de görüntüleyebilirsiniz..:

[COLOR=#0600ff]With[/COLOR] DoCmd
.OpenReport [COLOR=#fb0000]"Telefon"[/COLOR], acViewPreview
.OpenReport [COLOR=#fb0000]"Telefon"[/COLOR], acViewNormal
[COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]With[/COLOR]

 

[Orion1]

Üstadım bir terslik var.Printpriview en altta kalıyor.Bu durumda işlevsel değil.
Dosyayı yolladım bakarmısınız.

 

[Taruz]

Evren Bey sorunu anlamadım açıkcası..

Amacınız raporu hem görüntülemek hem de aynı anda yazdırmaksa bu başarılı bir şekilde oluyor..

Sorunu daha net ifade ederseniz farklı önerilerde bulunabilirim..

 

[Orion1]

Evren Bey sorunu anlamadım açıkcası..

Amacınız raporu hem görüntülemek hem de aynı anda yazdırmaksa bu başarılı bir şekilde oluyor..

Sorunu daha net ifade ederseniz farklı önerilerde bulunabilirim..

Üstadım önce ön izleme çıkmalı ki oraya bakan kişi yazdırma seçeneğine evet veya hayır diyebilsin.belki ön izlemede görüntüyü beğenmeyip yazdırmadan vazgececktir.Yani ön izleme önce çıkmalı kişiye yadırmadan önce yazdırma olyaında bir fikir verebilmeli.Oysa bu dosyada tam tersi oluyor.
Ön izleme formun altında kalıyor.Ön izleme formun üstünde gözükmeli.

 

[Taruz]

Evren bey o halde aynı anda hem görüntülemek hem de yazdırmak istemiyorsunuz.. Bu durumda seçenke için menü çubuğunu kullanmalısınız.. En pratik yol bu.. Ekte örneğinize sadece raporlarınız açıldığında görünen menü çubuğu ekledim..

 

[Orion1]

Evren bey o halde aynı anda hem görüntülemek hem de yazdırmak istemiyorsunuz.. Bu durumda seçenke için menü çubuğunu kullanmalısınız.. En pratik yol bu.. Ekte örneğinize sadece raporlarınız açıldığında görünen menü çubuğu ekledim..

Aslında öyle yapmak istiyorum.Ama görüntü altta kalıyordu önceki yolladığım dosyada .görüntü üstte olacak yazdır altta olacak.Ben görünüten sonra yani ön izlemeden sonra onu artık kapatıcammı yoksa direk yazdıramı tıklayacam acsess hangisine müsaade ediyorsa yazdıra basıcam.Yani ben önce ön izlemeyi görecem ondan sonra da yazdırma yapacam.Şidiki yolladığınız dosyada ise sadece ön izleme gözüküyor.Yanda koyduğunuz araç çubuğuna ise ulaşamıyorum.Tıklayamırum ona seçilemiyor çünkü.Dolayısı ile yazdırma işini yine yapamadım.

 

[Taruz]

Merhaba Evren Bey..

Sizin için raporla birlikte devreye giren bir popup form hazırladım.. Sanırım istediğiniz bu tarzda bir şey..

 

[Orion1]

Merhaba Evren Bey..

Sizin için raporla birlikte devreye giren bir popup form hazırladım.. Sanırım istediğiniz bu tarzda bir şey..

Çok güzel bir çalışma yapmışsınız tarruz bey teşekküre ederim.
Bunu arşivimde saklayacağım.
Benim istediğim daha basit bir şey.Normal yazdırmak.
Formdaki butona bastığığmda önce karşıma önizleme gelecek.
Ben ön izlemeyi kapattıktan sonra yazdırma penceresi gelecek.ona yazdır deyince yazdıracak.Yani hepsi accssesin standart olayları üstadım.
Aslında bunu siz defalarca yapmışsınızdır ama biz sanırım aramızad iletişim eksikliği yaşıyoruz.Ben tam olarak anlatamıyorum sanırım olayı.Yani normal bir şey istiyorum.Önce Ön izlemeden yazdırılacak yazıyı görücem sonra yazdıracam.
Ön izlemeden yazdırılacak yazıyı görmeden yazdırma yapmak istemiyorum.
Teşekür ederim.

 

[Taruz]

Evet, sanırım sizi yanlış anlıyorum..

Telefon isimli raporun Kapandığında olayına bu kodu,

[COLOR=#0600ff]If[/COLOR] MsgBox[COLOR=#000000]([/COLOR][COLOR=#fb0000]"Bu raporu yazdırmak iste misiniz?"[/COLOR], vbYesNo[COLOR=#000000])[/COLOR] [COLOR=#008000]=[/COLOR] vbYes [COLOR=#0600ff]Then[/COLOR]
DoCmd.OpenReport [COLOR=#fb0000]"Telefon"[/COLOR], acViewNormal, [COLOR=#fb0000]""[/COLOR], _
    [COLOR=#fb0000]"[Telefon]![ID]=[Forms]![Telefon]![Liste0]"[/COLOR]
[COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]

diğerine ise aşağıdaki kodu uygularsanız raporları önizlemeden kapatınca yazdırmak isteyip istemediğinizi sorar..

[COLOR=#0600ff]If[/COLOR] MsgBox[COLOR=#000000]([/COLOR][COLOR=#fb0000]"Bu raporu yazdırmak iste misiniz?"[/COLOR], vbYesNo[COLOR=#000000])[/COLOR] [COLOR=#008000]=[/COLOR] vbYes [COLOR=#0600ff]Then[/COLOR] DoCmd.OpenReport [COLOR=#fb0000]"Telefon"[/COLOR], acViewNormal

Ayrıca isterseniz raporların kapandığında ekrana çıkacak form ile de aynı işi yapabiliriz.. Bunu da örneğe uyguladım, inceleyebilirsiniz..

 

[Orion1]

Evet, sanırım sizi yanlış anlıyorum..

Telefon isimli raporun Kapandığında olayına bu kodu,

[COLOR=#0600ff]If[/COLOR] MsgBox[COLOR=#000000]([/COLOR][COLOR=#fb0000]"Bu raporu yazdırmak iste misiniz?"[/COLOR], vbYesNo[COLOR=#000000])[/COLOR] [COLOR=#008000]=[/COLOR] vbYes [COLOR=#0600ff]Then[/COLOR]
DoCmd.OpenReport [COLOR=#fb0000]"Telefon"[/COLOR], acViewNormal, [COLOR=#fb0000]""[/COLOR], _
    [COLOR=#fb0000]"[Telefon]![ID]=[Forms]![Telefon]![Liste0]"[/COLOR]
[COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]

diğerine ise aşağıdaki kodu uygularsanız raporları önizlemeden kapatınca yazdırmak isteyip istemediğinizi sorar..

[COLOR=#0600ff]If[/COLOR] MsgBox[COLOR=#000000]([/COLOR][COLOR=#fb0000]"Bu raporu yazdırmak iste misiniz?"[/COLOR], vbYesNo[COLOR=#000000])[/COLOR] [COLOR=#008000]=[/COLOR] vbYes [COLOR=#0600ff]Then[/COLOR] DoCmd.OpenReport [COLOR=#fb0000]"Telefon"[/COLOR], acViewNormal

Ayrıca isterseniz raporların kapandığında ekrana çıkacak form ile de aynı işi yapabiliriz.. Bunu da örneğe uyguladım, inceleyebilirsiniz..

Tarruz bey yukarıda verdiğiniz kodlar doğrultusunda istiyordum.
Yaptım ama acemilkten karıştırdım.Temin bir ara çalıştırdım şimdi çalışmıyor.
Acemilk kolay değil tabii.Bir yeri yaparken kesin bir yeri bozmuşumdur.
Dosyayı ekliyorum.Yukarıda verdiğiniz kodları uyguklayıp.Orada dediğniz biçimde çalıştırabilirmiyiz kodları.
Teşekür ederim.

 

[P@R@NoOOoY@K]

arkadaşlar siz bu programıı nerde yazdınız allah aşkına???Visual Basic degilmidir bu??

 

[P@R@NoOOoY@K]

bu kodlarıı alabilirmiyimm rica etsemm???C# kodlarına çevirmeye çalışıcam inş...

 

[Orion1]

Merhaba.
İyice kafam karıştı.
Şimdi ön izlemeyi yapabildim ama bu sferde yazdırıken bir hata oluşuyor.
Ekteki dosyama bakarmısınız?