diff options
Diffstat (limited to 'wizards/source/access2base/DoCmd.xba')
-rw-r--r-- | wizards/source/access2base/DoCmd.xba | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index a10e6246e567..4af47feeca3e 100644 --- a/wizards/source/access2base/DoCmd.xba +++ b/wizards/source/access2base/DoCmd.xba @@ -1212,8 +1212,9 @@ Public Function OutputTo(ByVal pvObjectType As Variant _ , ByVal Optional pvEncoding As Variant _ , ByVal Optional pvQuality As Variant _ ) As Boolean -'Supported: acFormatPDF, acFormatODT, acFormatDOC, acFormatHTML for forms -' acFormatHTML for tables and queries +REM https://wiki.openoffice.org/wiki/Documentation/DevGuide/Spreadsheets/Filter_Options +'Supported: acFormatPDF, acFormatODT, acFormatDOC, acFormatHTML for forms +' acFormatHTML, acFormatXLS, acFormatCALC, acFormatTXT for tables and queries If _ErrorHandler() Then On Local Error Goto Error_Function Const cstThisSub = "OutputTo" @@ -1229,7 +1230,8 @@ Const cstThisSub = "OutputTo" If pvOutputFormat <> "" Then If Not Utils._CheckArgument(UCase(pvOutputFormat), 3, vbString, Array( _ UCase(acFormatPDF), UCase(acFormatODT), UCase(acFormatDOC), UCase(acFormatHTML) _ - , "PDF", "ODT", "DOC", "HTML", "" _ + , UCase(acFormatXLS), UCase(acFormatCALC), UCase(acFormatTXT) _ + , "PDF", "ODT", "DOC", "HTML", "XLS", "ODS", "TXT", "CSV", "" _ )) Then Goto Exit_Function ' A 2nd time to allow case unsensitivity End If If IsMissing(pvOutputFile) Then pvOutputFile = "" |