Dim pdf As cPDF
pdf.Initialize("mm")
pdf.pageAdd(pdf.pageSizeA4PortraitWidth, pdf.pageSizeA4PortraitHeight)
pdf.sProperty(pdf.PropertyAuthor,"xFood").sProperty(pdf.PropertyTitle,"Demo").sProperty(pdf.PropertyKeywords,"Demo con B4J")
' e poi una serie di
pdf.outRectangle(......)
pdf.outText(...)