ö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:
Set prt = Application.Printers(Me!YaziciSec.Value)
Kod:
[Forms]![YaziciSec]![YaziciSec]
Kod:
Dim prt As Printer
Dim stDocName As String
Set prt = Application.Printers(Me!YaziciSec.Value)
Set Application.Printer = prt
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:
Set Application.Printer = Nothing
Kod:
set application.printer = GetPrinter("varsayilan_olmasi_istenen_yazici_tam_adi")
Kod:
DoCmd.OpenForm "FaturaDokum", , , stLinkCriteria
DoCmd.Close acForm, "YaziciSec"
DoCmd.Close acReport, "FaturaDokum"
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.