Dim pdf As PdfDocument
pdf.Initialize
Dim bmp As B4XBitmap=CLVX.sv.ScrollViewInnerPanel.Snapshot
Dim setH As Double =(bmp.Height / bmp.Scale)
pdf.StartPage(350,setH)
Dim Rect1 As Rect
Rect1.Initialize(3dip, 2dip, bmp.Width,bmp.Height / bmp.Scale)
Rect1.Width = (bmp.Width / bmp.Scale) * 0.85
Rect1.Height = (bmp.Height / bmp.Scale) * 0.90
pdf.Canvas.DrawBitmap(bmp, Null,Rect1)
pdf.FinishPage