bahsettiğiniz talebinize yönelik olarak;
ilgili Komut14 adlı butonun içeriğini;bu hali ile geçerli saymak sureti ile,
Dim prt As Printer
Dim stDocName As String
Set prt = Application.Printers(Me!YaziciSecc.Value)
Set Application.Printer = prt
DoCmd.Close acForm, "YaziciSecc"
DoCmd.OpenReport "kalan_tplm", acPreview
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "kalan_tplm"
Set Application.Printer = Nothing
yukarıdaki kodları kullanarak deneyiniz.
bilginize...iyi çalışmalar,saygılar.