Activity.LoadLayout("pdfPageLayout1")
pdf.Initialize("")
Dim info As PageInfo
Dim r As Rect
r.Initialize(50,50,450,780)
info.Initialize(595dip,842dip,1,r)
Dim p As Page = pdf.startPage(info)
Dim c As Canvas = p.Canvas
Dim srcrec As Rect
srcrec.Initialize(0,0,ImageView1.Width,ImageView1.Height)
c.DrawBitmap(ImageView1.Bitmap,srcrec,r)
pdf.finishPage(p)
pdf.writeTo(File.DirRootExternal,"TestpdfCanvas.pdf")