| ■No93822 (Hongliang さん) に返信
> 改行文字は改行として出力されないので、Joinしてはいけません。
> Substringした文字列をそのままDrawTextしていくといいでしょう。
Dim Maxmoji As Short = 63
Dim Datamoji As String = DtReport.Rows(0)("moji").ToString
Dim List As New List(Of String)()
For i As Integer = 0 To Datamoji.Length Step Maxmoji
Dim len As Integer = If(i + Maxmoji < Datamoji.Length, Maxmoji, Datamoji.Length - i)
ObjPDF.DrawText(nRtnCode, pageNo, (Font_X) * pointX, (Font_Y + (-Y_DataAdd)) * pointY, TextWidth, TextHieght, Datamoji.Substring(i, len), font)
Y_DataAdd += 5
Next
これでいけました！
的確なアドバイスありがとうございました。(*^-^*)
|