Dim strsend As String
strsend = Me.txt_folderpath & shamsi() & "-" & Format(Now, "hhmmss") & ".xlsx"
DoCmd.OutputTo acOutputQuery, "qrymember", acFormatXLSX, Trim(strsend), True, 0
Dim XlSheet As Object
Dim xl As Object
Set xl = GetObject(strsend)
xl.Application.Visible = True
Set XlSheet = xl.Worksheets(1)
XlSheet.DisplayRightToLeft = True
Set xl = Nothing
Set XlSheet = Nothing