Čairo

airo

Dim cb As PdfContentByte = writer.DirectContent

        cb.BeginText()
        Dim bf As BaseFont
        bf = BaseFont.CreateFont("c:windowsfontsarial.ttf", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)

Dim f As New Font(iTextSharp.text.Font.FontFamily.HELVETICA, 10.0F, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)
            Dim ph As New Phrase(moderate_foods(i), f)
            Dim cell As New PdfPCell(ph)