Dim PDFPanel As Panel
PDFPanel.Initialize("PDFPanel")
PDFPanel.Width=612dip
PDFPanel.Height=792dip
PDFPanel.LoadLayout("PDFLayout")
Dim PDFCanvas As Canvas
PDFCanvas.InitializePDF(File.DirDocuments,"test.pdf",612,792)
For Each v As View In PDFPanel.GetAllViewsRecursive
Dim Rect As Rect
Select True
Case v Is ImageView
Dim iv As ImageView
iv=v
iv.ContentMode=iv.MODE_FIT
Rect.Initialize(iv.Left,iv.Top,iv.Left+315,iv.Top+75) 'The size i need
PDFCanvas.DrawView(iv,Rect)
Case v Is Label
Dim lab As Label
lab=v
Rect.Initialize(lab.Left,lab.Top,lab.Left+lab.Width,lab.Top+lab.Height)
PDFCanvas.DrawView(lab,Rect)
Log(lab.Text&"-"&lab.Top&"-"&lab.Left)
End Select
Next
PDFCanvas.Release