作成日: 2017/04/03 最終更新日: 2017/04/03
文書種別
不具合
状況
修正済み
詳細
Excelで設定できるFitToPagesTallプロパティの最大値は「32767」です。
SPREADでこれを超える値を設定してExcelにエクスポートすると、生成されたExcelファイルをExcelで開く際にエラーが発生します。
【手順】
1.新規フォームにSPREADとButtonを配置します
2.下記サンプルコードをコピーし、アプリケーションを実行します
3.ButtonをクリックしてExcelファイルを出力し、生成されたExcelファイルを開きます
--- Excelが「'XXXX.xlsx'の一部の内容に問題が見つかりました。...(以降、省略)...。」とエラーを表示し、ファイルを開くことができません。
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FpSpread1.ActiveSheet.PrintInfo.BestFitCols = False
FpSpread1.ActiveSheet.PrintInfo.UseSmartPrint = True
Dim printrules As New FarPoint.Win.Spread.SmartPrintRulesCollection()
printrules.Add(New FarPoint.Win.Spread.LandscapeRule(FarPoint.Win.Spread.ResetOption.None))
printrules.Add(New FarPoint.Win.Spread.ScaleRule(FarPoint.Win.Spread.ResetOption.All, 1.0F, 0.1F, 0.05F))
FpSpread1.ActiveSheet.PrintInfo.SmartPrintPagesWide = 1
FpSpread1.ActiveSheet.PrintInfo.SmartPrintPagesTall = Int32.MaxValue
FpSpread1.ActiveSheet.PrintInfo.SmartPrintRules = printrules
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FpSpread1.SaveExcel("Test.xlsx", FarPoint.Excel.ExcelSaveFlags.UseOOXMLFormat)
End Sub
SPREADでこれを超える値を設定してExcelにエクスポートすると、生成されたExcelファイルをExcelで開く際にエラーが発生します。
【手順】
1.新規フォームにSPREADとButtonを配置します
2.下記サンプルコードをコピーし、アプリケーションを実行します
3.ButtonをクリックしてExcelファイルを出力し、生成されたExcelファイルを開きます
--- Excelが「'XXXX.xlsx'の一部の内容に問題が見つかりました。...(以降、省略)...。」とエラーを表示し、ファイルを開くことができません。
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FpSpread1.ActiveSheet.PrintInfo.BestFitCols = False
FpSpread1.ActiveSheet.PrintInfo.UseSmartPrint = True
Dim printrules As New FarPoint.Win.Spread.SmartPrintRulesCollection()
printrules.Add(New FarPoint.Win.Spread.LandscapeRule(FarPoint.Win.Spread.ResetOption.None))
printrules.Add(New FarPoint.Win.Spread.ScaleRule(FarPoint.Win.Spread.ResetOption.All, 1.0F, 0.1F, 0.05F))
FpSpread1.ActiveSheet.PrintInfo.SmartPrintPagesWide = 1
FpSpread1.ActiveSheet.PrintInfo.SmartPrintPagesTall = Int32.MaxValue
FpSpread1.ActiveSheet.PrintInfo.SmartPrintRules = printrules
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FpSpread1.SaveExcel("Test.xlsx", FarPoint.Excel.ExcelSaveFlags.UseOOXMLFormat)
End Sub
回避方法
Service Pack 1(v10.0.4003.2012)で修正済み。
旧文書番号
40257