| ■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
これでいけました! 的確なアドバイスありがとうございました。(*^-^*)
|