セルをコピーする方法を記載します。

セルをコピーする

Dim sheet1 As ISheet = book.GetSheet("Sheet1")

'コピー元
Dim row1 As XSSFRow = sheet1.GetRow(0)

'コピー先
Dim row2 As XSSFRow = sheet1.CreateRow(5)

'内容のコピー
row2.CreateCell(3).SetCellValue(row1.GetCell(0).StringCellValue())

'属性のコピー
row2.CreateCell(3).CellStyle = row1.GetCell(0).CellStyle()

 

 

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

用紙サイズを設定する

'ブックを作成（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)

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