Sub Globals
Private rp As RuntimePermissions
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Formularz_druk")
Sleep(1000)
Dim x As B4XView = Activity
Dim bmp As Bitmap = x.Snapshot
Dim pdf As PdfDocument
pdf.Initialize
pdf.StartPage(595, 842) 'A4 size
Dim ScrRect As Rect
ScrRect.Initialize(0, 0, bmp.Width,bmp.Height)
Dim DestRect As Rect
DestRect.Initialize(0, 0, 595, 842)
pdf.Canvas.DrawBitmap(bmp, Null, DestRect)
pdf.FinishPage
Dim out As OutputStream = File.OpenOutput(rp.GetSafeDirDefaultExternal(""), "1.pdf", False)
pdf.WriteToStream(out)
out.Close
pdf.Close
End Sub