edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-11-25 14:09:40 +01:00
parent e19a163187
commit dbe63ae55a
14 changed files with 138 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Gemeinsames/cReportExportierer.vb
View File

@@ -26,9 +26,9 @@ Public Class cReportExportierer
Dim xlsExport1 As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport()
xlsExport1.FileFormat = GrapeCity.ActiveReports.Export.Excel.Section.FileFormat.Xlsx
xlsExport1.Export(document, datei.FullName)
Case ".rtf".ToUpper()
Dim rtfExport1 As New GrapeCity.ActiveReports.Export.Word.Section.RtfExport()
rtfExport1.Export(document, datei.FullName)
'Case ".rtf".ToUpper()
' Dim rtfExport1 As New GrapeCity.ActiveReports.Export.Word.Section.RtfExport()
' rtfExport1.Export(document, datei.FullName)
Case Else
MessageBox.Show("Es würde ein ungültiges Exportformat ausgewählt. Erlaubt sind 'pdf', 'rtf' und 'xlsx'.")
Exit Sub