Hello,
Old Name: Print_Titles
New Name: "
This message appears only in the excel french version but no in the english version.
Private Sub GenerateReport(ByVal Streams() As Stream)
Dim main As Aspose.Cells.Workbook = Nothing
For i = 0 To UBound(Streams)
Dim wbk As New Aspose.Cells.Workbook
wbk.Open(Streams(i))
Dim index As Integer
If i = 0 Then
main = wbk
index = 0
Else
index = main.Worksheets.Add(Aspose.Cells.SheetType.Worksheet)
main.Worksheets(index).Copy(wbk.Worksheets(0))
End If
main.Worksheets(index).Name = Choose(CDbl(i + 1), "Master", "Design", "Permits", "Procurements", "Construction")
wbk = Nothing
Next
Dim pageSetup As Aspose.Cells.PageSetup
For Each wks As Aspose.Cells.Worksheet In main.Worksheets
wks.AutoFilter.SetRange(2, 0, wks.Cells.Columns.Count - 1)
pageSetup = wks.PageSetup
With pageSetup
.PaperSize = Aspose.Cells.PaperSizeType.PaperA3
.Orientation = Aspose.Cells.PageOrientationType.Landscape
.CenterHorizontally = True
.PrintTitleRows = "$1:$3"
End With
Next
main.Save("Report_" & Now.ToString("yyMMddhhmmss") & ".xls", Aspose.Cells.FileFormatType.Excel2000, Aspose.Cells.SaveType.OpenInExcel, Response)
End Sub
How to fix this problem?
Thanks,
Angélique