ارفق اليكم كود لدي في البرنامج لا يعمل وهو لتصدير التقرير علي هيئة snp او txt او xls ولكن لا يعمل فل يوجد حل :
Public Function PrintToFile()
' Sends a report to either an RTF file or a Snapshot file for later viewing.
' Returns True if file saved, else False
Dim strPath As String
Dim strFilter_mod As String
Dim strOutputFormat As String
Dim strLastSaveDir As String
Dim fDlg As New clsCommonDialogs
fDlg.AddFilterItem "Access Snapshot Files (*.snp)", "*.SNP"
fDlg.AddFilterItem "Rich Text Files (*.rtf)", "*.RTF"
fDlg.AddFilterItem "Excel Files (*.xls)", "*.xls"
strLastSaveDir = GetSetting("RFDBase", "UserFiles", "LastSave", "none")
If strLastSaveDir = "none" Then
SaveSetting "RFDBase", "UserFiles", "LastSave", CurDir
strLastSaveDir = CurDir
End If
strPath = fDlg.GetSaveFile(strLastSaveDir, "Save Report to File", strReportName & Format(Date, " yyyy/mm/dd"))
If Len(strPath) & "" > 0 Then
strLastSaveDir = GetPath(strPath)
SaveSetting "RFDBase", "UserFiles", "LastSave", strLastSaveDir
Select Case Right(strPath, 4)
Case ".SNP"
strOutputFormat = "Snapshot Format"
DoCmd.OutputTo acOutputReport, strReportName, strOutputFormat, strPath
Case ".RTF"
strOutputFormat = acFormatRTF
DoCmd.OutputTo acOutputReport, strReportName, strOutputFormat, strPath
Case ".XLS"
strOutputFormat = acFormatXLS
Case Else
MsgBox "Invalid file name extension (" & Right(strPath, 4) & ")", vbOKOnly, "Invalid File Type"
OutPutToFile = False
Exit Function
End Select
DoCmd.OutputTo acOutputReport, strReportName, strOutputFormat, strPath
OutPutToFile = True
Else
OutPutToFile = False
End If
DoCmd.Hourglass False
End Function
