ぷろぐらむノート

用紙サイズ、用紙方向、余白・ページタイトル等の設定を記載します。

用紙サイズを設定する

'ブックを作成（xlsx形式）
Dim book As IWorkbook = New XSSFWorkbook()

'シートを作成
Dim sheet1 As ISheet = book.CreateSheet("Sheet1")

Dim ps As XSSFPrintSetup = sheet1.PrintSetup()

ps.PaperSize = NPOI.SS.UserModel.PaperSize.A4

注意：上記のように PaperSize を設定することにより用紙サイズが変えられるが、PaperSizeの列挙体がうまく設定されていないためサイズが異なるものになる

 

用紙方向を設定する

'ブックを作成（xlsx形式）
Dim book As IWorkbook = New XSSFWorkbook()

'シートを作成
Dim sheet1 As ISheet = book.CreateSheet("Sheet1")

Dim ps As XSSFPrintSetup = sheet1.PrintSetup()
'用紙方向
ps.Landscape = True

 

余白を設定する

'シートを作成
Dim sheet1 As ISheet = book.CreateSheet("Sheet1")

sheet1.SetMargin(NPOI.SS.UserModel.MarginType.TopMargin, 20)
sheet1.SetMargin(NPOI.SS.UserModel.MarginType.BottomMargin, 20)
sheet1.SetMargin(NPOI.SS.UserModel.MarginType.LeftMargin, 20)
sheet1.SetMargin(NPOI.SS.UserModel.MarginType.RightMargin, 10)

※余白はインチ単位で設定します。

 

セルの横幅および、セルの高さの設定の方法を記載します。

セルの横幅を設定する

'ブックを作成（xlsx形式）
Dim book As IWorkbook = New XSSFWorkbook()

'シートを作成
Dim sheet1 As ISheet = book.CreateSheet("Sheet1")

'行を取得
Dim row1 As IRow = sheet1.CreateRow(1)

'行幅を設定する
row1.HeightInPoints = 50.0

'行幅を初期値に設定する
row1.HeightInPoints = sheet1.DefaultRowHeightInPoints

 

セルの高さを設定する

'ブックを作成（xlsx形式）
Dim book As IWorkbook = New XSSFWorkbook()

'シートを作成
Dim sheet1 As ISheet = book.CreateSheet("Sheet1")

'セルの幅を設定する
sheet1.SetColumnWidth(2, 256 * 30)

※列幅の指定は１文字の幅を１／２５６にしたものが単位となります。