dim pdf as new DynaPDFMBS // make subclass to catch error event

dim f as FolderItem = SpecialFolder.Desktop.Child("dynapdf_help.pdf")

// create PDF
call pdf.CreateNewPDF(nil)
// set import flags
call pdf.SetImportFlags(pdf.kifImportAll + pdf.kifImportAsPage)

// open import file
call pdf.OpenImportFile(f, 0, "")

// import all pdf pages
call pdf.ImportPDFFile(1, 1.0, 1.0)

dim PageCount as Integer = pdf.GetPageCount

// create rasterizer.
dim r as new DynaPDFRasterizerMBS(pdf, 1000,1000)

// create options
dim o as new DynaPDFRasterImageMBS

// fill white
o.InitWhite = true

// scale to fit
o.DefScale = o.kpsFitBest

// rotate
o.Flags = o.krfRotate90

// render all pages
for i as Integer = 1 to PageCount
  
  dim p as DynaPDFPageMBS = pdf.GetPage(i)
  if r.RenderPage(p, o) then
    // save to disc
    dim outfile as FolderItem = SpecialFolder.Desktop.Child("page "+Format(i,"0")+".jpg")
    call outfile.SaveAsJPEGMBS(r.Pic, 75)
  end
next