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

■No93815 (Hongliang さん) に返信
> http://pdfgeneratornetfree.web.fc2.com/index.html
> PDF Generator Net Freeというのはこれでしょうか。
> 最新版(1.1.0.0)はダウンロードできず、安定版(1.0.0.0)にはDrawTextなるメソッドを使用できるクラスが存在しないようですが。

説明不足でした。DrawTextは自分で関数を作ったやつなので、中身としては

        '*** 文字列描画
        ''' <param name="nRtnCode">ﾘﾀｰﾝｺｰﾄﾞ</param>
        ''' <param name="PageName">ﾍﾟｰｼﾞ名</param>
        ''' <param name="PointX">X座標</param>
        ''' <param name="PointY">Y座標</param>
        ''' <param name="Width">幅</param>
        ''' <param name="Height">高さ</param>
        ''' <param name="Text">文字列</param>
        ''' <param name="Font">ﾌｫﾝﾄ</param>
        Public Sub DrawText(ByRef nRtnCode As Integer, ByVal PageName As String,
                            ByVal PointX As Single, ByVal PointY As Single, ByVal Width As Single, ByVal Height As Single,
                            ByVal Text As String, Optional ByVal Font As TextStyle = Nothing)
            nRtnCode = -1
            Try
                If Font Is Nothing Then
                    Font = Me.GetFontR(nRtnCode)
                    If nRtnCode <> 0 Then Exit Try
                End If
                If Text IsNot Nothing AndAlso Text.Length > 0 Then
                    Dim content() As AbstractPdfContentItem = {New Text(PointX, PointY, Width, Height, Text, Font)}
                    Call doc.AddContent(PageName, content)
                End If
                nRtnCode = 0
            Catch ex As Exception
                nRtnCode = -1
            End Try
        End Sub

こんな感じです。
ちなみに1.0.0.0です。

> 考える必要がなければ構わないですが、
> ・1文字の横幅が同じとは限らない
> ・最近は1文字の定義がややこしい。Lengthが2以上を返すStringだけど表示上は1文字分とか（絵文字が代表的）
> などの問題もあります。

フォントサイズは指定しているのですが、それでも変わりますか？

■No93814 (はまぐり さん) に返信
> 文字列の改行はこんな感じのロジックが良いですよ
> https://paiza.io/projects/LvisYdfG6l050tt3Di6ouQ

文字列の改行はできました！
ありがとうございます。

ただ、
 'ObjPDF.DrawText(nRtnCode, pageNo, (Font_X) * pointX, (Font_Y + (-Y_DataAdd)) * pointY, TextWidth, TextHieght, Val, font)
に入れるとなると難しいようです(-_-;)