【Excel】エクスポートしたExcelのページ設定「次のページ数に合わせて印刷」でページ数が空欄となっている
対象製品
SPREAD for .NET 2.5J Web Forms Edition
発生環境
動作保証環境と同様
状況
修正済み
詳細
エクスポートしたExcelのページ設定「拡大縮小印刷」の「次のページ数に合わせて印刷」でページ数が空欄となっています。
デフォルトのExcel設定では「横 1 ページ × 縦 1 ページ」が設定されています。
[再現手順]
1.WebフォームにSPREADを配置します。
2.下記コードをコピーし実行します。
3.ButtonをクリックしてExcelファイルを出力します。
4.Excelファイルを開き[ファイル|ページ設定]で設定を確認します。
[再現コード]
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IsPostBack Then Return
'テスト用データを設定
FpSpread1.Sheets(0).DataSource = CreateData()
End Sub
Private Function CreateData() As DataSet
Dim ds As New DataSet
Dim dt As New DataTable
dt.Columns.Add(New DataColumn("EMPID", Type.GetType("System.Int32")))
dt.Columns.Add(New DataColumn("ENAME", Type.GetType("System.String")))
dt.Rows.Add(New Object() {1, "足柄"})
dt.Rows.Add(New Object() {2, "石山"})
dt.Rows.Add(New Object() {3, "霧島"})
ds.Tables.Add(dt)
Return ds
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Excelエクスポート
Dim fp As String = HttpContext.Current.Server.MapPath(Request.ApplicationPath + "/test.xls")
FpSpread1.SaveExcel(fp)
End Sub
デフォルトのExcel設定では「横 1 ページ × 縦 1 ページ」が設定されています。
[再現手順]
1.WebフォームにSPREADを配置します。
2.下記コードをコピーし実行します。
3.ButtonをクリックしてExcelファイルを出力します。
4.Excelファイルを開き[ファイル|ページ設定]で設定を確認します。
[再現コード]
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IsPostBack Then Return
'テスト用データを設定
FpSpread1.Sheets(0).DataSource = CreateData()
End Sub
Private Function CreateData() As DataSet
Dim ds As New DataSet
Dim dt As New DataTable
dt.Columns.Add(New DataColumn("EMPID", Type.GetType("System.Int32")))
dt.Columns.Add(New DataColumn("ENAME", Type.GetType("System.String")))
dt.Rows.Add(New Object() {1, "足柄"})
dt.Rows.Add(New Object() {2, "石山"})
dt.Rows.Add(New Object() {3, "霧島"})
ds.Tables.Add(dt)
Return ds
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Excelエクスポート
Dim fp As String = HttpContext.Current.Server.MapPath(Request.ApplicationPath + "/test.xls")
FpSpread1.SaveExcel(fp)
End Sub
回避方法
2007/09/05版で修正済み。
キーワード
SPRN05900
この文書は、以前は次のバグレポートIDで公開されていました : 6599