Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim pdf As PdfDocument
pdf.Initialize
pdf.StartPage(595, 842) 'A4 size
pdf.Canvas.DrawLine(2, 2, 593 , 840, Colors.Blue, 4)
pdf.Canvas.DrawText("Hello", 100, 100, Typeface.DEFAULT_BOLD, 30 / GetDeviceLayoutValues.Scale , Colors.Yellow, "CENTER")
Dim lbl As Label
lbl.Initialize("")
lbl.SetLayout(10dip, 10dip, 300dip, 300dip)
lbl.SingleLine = False
Dim xlbl As B4XView = lbl
xlbl.Text = $"Dim r As Rect
r.Initialize(10, 10, 110, 110)
pdf.Canvas.DrawBitmap(xlbl.Snapshot, Null, r)
pdf.FinishPage
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "2.pdf", False)
pdf.WriteToStream(out)
out.Close
pdf.Close"$
Dim r As Rect
r.Initialize(210, 210, 510, 510)
pdf.Canvas.DrawBitmap(xlbl.Snapshot, Null, r)
pdf.FinishPage
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "2.pdf", False)
pdf.WriteToStream(out)
out.Close
pdf.Close
End If
End Sub