Merhaba arkadaşlar kullandığım programda FaturaDokum raporu açıldığı zaman ayni zamanda YaziciSec formu da açılıyor YaziciSec formunda açılan kutuda yazıcıyı seçip yazdırıyorum. Hangi yazıcıyı seçiyorsam varsayılan yazıcı olarak ayarlanıyor.

 
Benim istediğim YazıcıSec formunda açılan kutuda hangi yazıciyi seçiyorsam o yazıcıdan tek sayfa çıktı alınsın , rapor sayfası ve YaziciSec formu kapansın ve çıktı aldığımız yazıcı varsayılan yazıcı olmasın. Daha önce varsayılan olarak ayarlanan yazıcı yine varsayılan yazıcı olarak kalsın.
 
Aşağıdaki kodlarla yapmaya çalıştım. beceremedim. Varsayılan yazıcıya geri dönmuyor. Rapor ve YaziciSeç formu kapanmiyor. Bu konularda yardımlarınızı bekliyorum yardımlarınız için şimdiden teşekkürler.

DoCmd.OpenForm "FaturaDokum", , , stLinkCriteria

    DoCmd.Close acForm, "YaziciSec"

DoCmd.Close acReport, "FaturaDokum"

şeklindeki kodları hata durumunda çalışacak kısma eklemişsiniz. Hata yoksa üstteki kodlar çalışmaz

Kodu aşağıdaki ile değiştirerek deneyiniz.

Private Sub Komut14_Click()



On Error GoTo Err_Komut14_Click

    Dim prt As Printer

    Dim stDocName As String

    Set prt = Application.Printers(Me!YaziciSec.Value)

    Set Application.Printer = prt



   DoCmd.OpenReport "tbl_kisiler", acPreview

DoCmd.Close acForm, "YaziciSec"

   DoCmd.PrintOut acPages, 1, 1

   DoCmd.Close acReport, "tbl_kisiler"

  



Exit_Komut14_Click:

    Exit Sub

Err_Komut14_Click:

    MsgBox Err.Description

    Resume Exit_Komut14_Click

End Sub

---

Atoz hocanın uyarısı ile koddaki hatalı kısım düzeltilmiştir.

Çok teşekkürler hocam ellerinze sağlık. Konuytu taşıyabilirsiniz.

Hocam açtığım konuya cevap vermiştiniz yazıcıdan tek sayfa çıktı alıyorum. Çıktıdan sonra Rapor sayfası ve YaziciSeç formu kapanıyor. Buraya kadar hiç bir sorun yok. Sonradan farkına vardım.
Hangi yazıcıyı seçip çıktı alıyorsak o yazıcıyı varsayılan yazıcı olarak kalıyor. Daha önce varsayılan yazıcıya dünülmuyor. Hocam birde aşağıdıki kodları nereye ekleyeceğimi çözemedim.

Alıntı:
şeklindeki kodları hata durumunda çalışacak kısma eklemişsiniz. Hata yoksa üstteki kodlar çalışmaz

DoCmd.OpenForm "FaturaDokum", , , stLinkCriteria
DoCmd.Close acForm, "YaziciSec"
DoCmd.Close acReport, "FaturaDokum"

sayın kenan827,

öncelikle,
bir tavsiyede bulunmanın faydalı olacağı kanısındayım.

lütfen,eğer katılımcılar tarafından sunulan paylaşımları (bilgilendirme veya örnek olsa dahi) tam olarak denemeden ve net sonuç elde etmeden konunuzun kapatılmasını talep etmeyiniz.

bahsini yaptığınız sorunları içerecek hali ile örnek uygulamanızın son kullanılabilir olanını mesajınızla birlikte konunuza dahil ediniz.üzerinden,açıklamaların yapılması daha yerinde olacaktır.

ayrıca,bu konunuzda paylaştığınız kodlar incelendiğinde bir olumsuzluk var kanısındayım.şöyle ki,hem yazıcı seçiminin yapılacağı bir form çağırmaktasınız hem de
kod satırı ile direkt bir denetimden değer atamaktasınız.kaldı ki,eğer açılan formdaki bir değer olsaydı bunun yazım şekli farklı olmalıydı.
şeklinde.iki printer atama işlemini aynı anda gerçekleştirmek gibi bir durum bu.ya
bu kodlar iptal edilmeli ve direkt yazıcı seçilecek formdan işlem yaptırılmalı ya da ilgili form iptal edilerek bu kodlarda işlemler sağlatılmalı.

Alıntı:...Hangi yazıcıyı seçip çıktı alıyorsak o yazıcıyı varsayılan yazıcı olarak kalıyor...

sorunuzun cevabı olarak;raporu kapatma kodunun bir alt satırına
kod satırı son kısma dahil edilerek çözülebilir.veyahut da,eğer direkt olarak herhangi bir yazıcının yine varsayılan yazıcı olarak kalmasını istiyorsanız,bu yazıcı seçiminin ardından,o zaman
kod ifadesini raporu kapatma satırının ardından ekleyebilirsiniz.
bu kodlar da,raporu ön izleme olarak açma kodunun bir altına yazılması gerekmektedir.

son olarak;eğer sorun devam ediyor düşüncesi ile örnek eklemeleriniz olacaksa,geçici olarak konunuzu Cevaplanmış Sorular kategorisi'nden yeniden taşıyorum.bilginize...iyi çalışmalar,saygılar.

Hocam kodlardan anlamadığım için benzer konularda araştırma yaparak kodları ekliyorum. Hangi kodu ne ifade ettiğini bilmiyorum. O yüzden bazen yanlış kod ekliyorum yanlış yere ekliyorum.
YaziciSec Formundaki kotları ekliyorum üzerinde gekli düzeltmeleri yaparsanız sevinirim. Saygılarımla iyi çalışmalar.