C# と VB.NET の質問掲示板

■No68357 (ひろ さん) に返信
Sub createPdf()
    Dim filepath = "C:\Users\a\Documents\test.pdf"
    Using stream As New System.IO.FileStream(filepath, System.IO.FileMode.Create)
        Dim document As New Document()
        PdfWriter.GetInstance(document, stream)
        document.Open()
        document.Add(createTable())
        document.Close()
    End Using
End Sub

Function createTable() As PdfPTable
    Dim table = New PdfPTable(2)
    Dim font As New Font(BaseFont.CreateFont("C:\Windows\Fonts\Meiryo.ttc, 0", BaseFont.IDENTITY_H, True))
    Dim cell As PdfPCell

    cell = New PdfPCell(New Paragraph("セル１", font))
    cell.Rowspan() = 2
    table.AddCell(cell)

    cell = New PdfPCell(New Paragraph("セル２", font))
    table.AddCell(cell)

    cell = New PdfPCell(New Paragraph("セル３", font))
    table.AddCell(cell)

    Return table
End Function

私の環境では上のコードで下のように出力されました。

http://uploda.cc/img/img525e042ce7f04.png

階段状というと結合したセルの高さが1つ分しかないということですよね。
原因はなんでしょうね。上と同じコードを実行しても階段状になりますか？
もしなるようであればライブラリのバージョンの違いを疑う必要がでてくるのかなと、
もしならないようであればコードの別の部分が関係してくるのではないかと思います。

■No68361 (ひろ さん) に返信

結合セルのセルが欠けるのはWriteSelectedRowsメソッドが原因にあるようですね。
WriteSelectedRowsメソッドを使わないとなると位置指定がすこしめんどうですね。

いちおうこんな感じでできました。
ColumnTextオブジェクトを作って範囲を指定してColumnTextオブジェクトにテーブルを追加しました。
テーブルの幅も反映されました。

doc.Open()

Dim pcb As PdfContentByte = pw.DirectContent

Dim table As PdfPTable = New PdfPTable(2)
table.TotalWidth = 550
Dim widths As Single() = New Single() {1.0F, 1.0F}
table.SetWidths(widths)
Dim cell As PdfPCell

cell = New PdfPCell(New Paragraph("セル１", font1))
cell.Rowspan() = 2
table.AddCell(cell)

cell = New PdfPCell(New Paragraph("セル２", font1))
table.AddCell(cell)
cell = New PdfPCell(New Paragraph("セル３", font1))
table.AddCell(cell)

table.HorizontalAlignment = Element.ALIGN_LEFT

Dim column As New ColumnText(pcb)
Dim posX = 20
Dim posY = 830
Dim width = table.TotalWidth
Dim height = table.TotalHeight

Dim leftX = posX
Dim topY = posY
Dim bottomY = topY - height
Dim rightX = leftX + width

column.SetSimpleColumn(leftX, bottomY, rightX, topY)
column.AddElement(table)
column.Go()

doc.Close()