sub print(html as string)
'convert your print content to pdf file
Dim phtmltopdf As PalmoHtmlToPdf
phtmltopdf.Initialize("phtmltopdf")
Dim pdffile As String="rawbtprint.pdf"
If File.Exists(File.DirInternal,pdffile) Then File.Delete(File.DirInternal,pdffile)
phtmltopdf.ConvertFromString(html,File.DirInternal,pdffile)
Wait For phtmltopdf_Finished (Success As Boolean)
'send invisible print command to rawbt
Dim Intent1 As Intent
Intent1.Initialize2($"rawbt:data:application/pdf;base64,${Base64EncodeDecodeImage.Base64AnyFileToString(File.DirInternal,pdffile)}"$, 0)
StartActivity(Intent1)
end sub