Dim pdf As PdfDocument
pdf.Initialize
pdf.StartPage(595, 400)
Dim Bitmap1 As Bitmap
Bitmap1.Initialize(File.DirAssets, "Pic1.jpg")
Dim DestRect As Rect
DestRect.Initialize(1dip, 1dip, 397dip, 265dip)
pdf.Canvas.DrawBitmap(Bitmap1, Null, DestRect)
Activity.Invalidate
pdf.FinishPage
Dim out As OutputStream = File.OpenOutput(Starter.SafeFolder, "ADCode.pdf", False)
pdf.WriteToStream(out)
out.Close
pdf.Close