Dim HtmlText As String = "<html><head /><body><span style='font-size:30px;'>Test Line 1<br />Test Line 2<br />.........1.........2.........3.........4<br /><br /></span></body></html>"
Dim poSu As StringUtils
Dim psEnc As String = poSu.EncodeUrl(HtmlText, "UTF8")
Dim psBack As String = poSu.EncodeUrl("custom.scheme.here://", "UTF8")
Dim psAppURI As String = "starpassprnt://v1/print/nopreview"
Dim poIn As Intent
poIn.Initialize(poIn.ACTION_VIEW, $"${psAppURI}?html=${psEnc}&drawer=ahead&size=3&back=${psBack}"$)
StartActivity(poIn)