Posted 11 January 2021, 6:17 am EST
Hello,In AR14, I am not able to export report with barcodes into excel. In "Excel" version barcodes are not readable with scanner.
I used the very same report in AR6 and it worked like a charm.
Any idea?
Forums Home / ActiveReports / ActiveReports v7+ Topics
Posted by: petr on 11 January 2021, 6:17 am EST
Posted 11 January 2021, 6:17 am EST
Hello,Replied 12 January 2021, 3:42 am EST
Hello,Replied 14 January 2021, 4:40 am EST
Hello,Replied 20 January 2021, 2:06 am EST
Hello,Marked as Answer
Replied 20 February 2021, 6:06 pm EST
Hello,Replied 11 March 2021, 9:20 pm EST
Hello,Replied 11 March 2021, 9:46 pm EST
Still no luck. I have attached a little sample (printed from report, printed from excel, scanned to pdf).Replied 12 March 2021, 1:27 am EST
Hello,Replied 12 March 2021, 3:02 am EST
Of course. I tried your report definition, andReplied 14 March 2021, 2:41 pm EST
Hello,Replied 14 March 2021, 6:25 pm EST
Even with 14.2.20842 I am not able to produce readable xlsx output. Using online service you suggested (https://online-barcode-reader.inliteresearch.com/) result is "No barcodes found on this page for the following selected barcode types:".wrong_barcode.zipReplied 15 March 2021, 2:41 am EST
Hello,Replied 15 March 2021, 2:54 am EST
Of course ... PageReportApplication1.zipReplied 15 March 2021, 2:55 am EST
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Viewer1.LoadDocument(Application.StartupPath + "\..\..\PageReport1.rdlx")
'then export, see https://www.grapecity.com/activereportsnet/docs/v14/online/exporting-reports.html
Dim rpt As New GrapeCity.ActiveReports.PageReport()
rpt.Load(New System.IO.FileInfo(Application.StartupPath + "\..\..\PageReport1.rdlx"))
Dim MyDocument As New GrapeCity.ActiveReports.Document.PageDocument(rpt)
Dim XlsExport1 As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport()
XlsExport1.FileFormat = GrapeCity.ActiveReports.Export.Excel.Section.FileFormat.Xlsx
XlsExport1.Export(MyDocument, Application.StartupPath + "\wrong_barcode.xlsx")
' Export the report in PDF format.
Dim PdfExport1 As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport()
PdfExport1.Export(MyDocument, Application.StartupPath + "\PDFExpt.pdf")
End Sub
Replied 15 March 2021, 2:29 pm EST
Hello,Dim report As New GrapeCity.ActiveReports.PageReport()
Dim reportDocument As New GrapeCity.ActiveReports.Document.PageDocument(report)
' Create an output directory.
Dim outputDirectory As New System.IO.DirectoryInfo("C:\MyExcel")
outputDirectory.Create()
' Provide settings for your rendering output.
Dim excelSetting As New GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtensionSettings()
excelSetting.FileFormat = GrapeCity.ActiveReports.Export.Excel.Page.FileFormat.Xls
Dim setting As GrapeCity.ActiveReports.Extensibility.Rendering.ISettings = excelSetting
' Set the rendering extension and render the report.
Dim excelRenderingExtension As New GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtension()
Dim outputProvider As New GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider(outputDirectory, System.IO.Path.GetFileNameWithoutExtension(outputDirectory.Name))
' Overwrite output file if it already exists.
outputProvider.OverwriteOutputFile = True
reportDocument.Render(excelRenderingExtension, outputProvider, setting.GetSettings())
Replied 15 March 2021, 4:31 pm EST
Hello,Replied 15 March 2021, 8:46 pm EST
Hello,Replied 15 March 2021, 8:54 pm EST
Yes, I can. And it does not work. does-not-work.zipReplied 16 March 2021, 1:04 am EST
Hello,Replied 16 March 2021, 1:58 am EST
Hello,Replied 16 March 2021, 3:44 pm EST
Hello Peter,