PDF_WrapText(EditText1.Text,30,50, 185,a, 30,-16777216,"LEFT")
Private Sub PDF_WrapText(Text As String, x As Float, y As Float, Length As Float, Font As Typeface,TextSize As Float, TextColor As Int, Alignment As String)
Dim PDF As PdfDocument
PDF.Initialize
PDF.StartPage(595, 842) 'A4 size
Dim y1 As Float = y
Dim b As Int = 0
For c = 1 To Text.Length
If Text.SubString2(b, c).Length > Length / 4.5 Then
PDF.Canvas.DrawText(Text.SubString2(b,Text.LastIndexOf2(" ", c)), x,y1,Font,TextSize/GetDeviceLayoutValues.Scale,TextColor, Alignment)
b = Text.LastIndexOf2(" ", c) + 1
y1 = y1 + TextSize
End If
If c = Text.Length And Text.SubString2(b,c).Length > 0 Then
PDF.Canvas.DrawText(Text.SubString2(b,c), x,y1,Font,TextSize,TextColor, Alignment)
End If
Next
PDF.FinishPage
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "1.pdf", False)
PDF.WriteToStream(out)
out.Close
PDF.Close
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "file://" & File.DirRootExternal & "/1.pdf")
i.SetType("application/pdf")
StartActivity(i)
End Sub