sayın m_demir,

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.