I am currently using GetFileSaveName in combination with SaveAs so that I can filter the available SaveAsTypes.
There doesn't seem to be any way to send something from the GetFileSaveName that will allow you to know whether
the user wants headers or not.
In my code below, I am using the file type return to pick the parameters to send to SaveAs. I am using the 'headers' option as the default because I see
nothing I can grab from the GetFileSaveName to pick whether I want a header or not.
Has anyone found a way to do this ?
string ls_file, ls_file_type, ls_path
li_rc = GetFileSaveName ( "Select File", ls_path, ls_file, ".XLSX", + "Excel Files (*.XLSX),*.XLSX," + "Excel Files 97-2007 (*.XLS),*.XLS," + "CSV Files (*.CSV),*.CSV," + "Text Files (*.TXT),*.TXT," + "PDF Files (*.PDF),*.PDF," , ls_current_dir, 32770)
If isnull(li_rc) or li_rc <> 1 then return
ls_file_type = Right(ls_file, 3)
ls_file_type = upper(ls_file_type)
Choose Case ls_file_type
dw_report.SaveAs(ls_path, Excel8!, TRUE )
dw_report.SaveAs(ls_path, XLSX!, TRUE )
dw_report.SaveAs(ls_path, Text! , TRUE )
dw_report.SaveAs(ls_path, CSV! , TRUE )
dw_report.Object.DataWindow.Export.PDF.Method = NativePDF!
dw_report.SaveAs(ls_path, PDF! , TRUE )
Messagebox('Report Window Export','Invalid format chosen. Please try your export again', StopSign! )