في زر الامر ضع الكود
Dim x As String
x = Me.EmpName.Column(1) & ".rtf"
DoCmd.OpenReport "Hr_Letter_Rep", acViewPreview, , "[Empcoode]=" & Me.Empcoode
DoCmd.OutputTo acOutputReport, "Hr_Letter_Rep", _
acFormatRTF, "d:\" & x, True
وبالامكان تغيير مكان الحفظ من الدريف d الى اي قرص
HR_Letter.rar