txt = "A alface é uma das hortaliças mais comercializadas no Brasil. Produzida durante todo o ano, no campo ou em estufas, " & _
"seu cultivo é prejudicado quando não é plantada a temperaturas apropriadas, com excesso de radiação solar, com chuvas prolongadas, " & _
"que podem inibir seu crescimento e danificá-la. Para verificar o ambiente mais adequado de cultivo e As variedades mais indicadas"
For R = 0 To 4
Row.Initialize
Dim PDFImage As PDFjetImage
Dim Columns(3) As String
Columns(0) = ""
Columns(1) = Chr(R+65) & ")"
Columns(2) = txt
For c=0 To 2
Column = Columns(c).Trim
PDFCell.Initialize2(PDFFont1, Column)
PDFCell.SetFgColor(PDFjetConstants1.Color.navy)
Row.Add(PDFCell)
Next
TableData1.AddRow(Row)
' Dim PDFImage As PDFjetImage
' If R=1 Then
' PDFImage.Initialize(PDFjetPDF1, File.OpenInput(File.DirTemp, "CkTrue.png"), PDFjetConstants1.ImageType.PNG)
' Else
' PDFImage.Initialize(PDFjetPDF1, File.OpenInput(File.DirTemp, "CkFalse.png"), PDFjetConstants1.ImageType.PNG)
' End If
' PDFImage.ScaleBy(0.25)
' TableData1.GetRow(r).Get(0).SetImage(PDFImage)
Next
PDFTable.SetData(TableData1)
PDFTable.SetCellBordersWidth(0.1)
PDFTable.SetPosition(30, 100)
PDFTable.AutoAdjustColumnWidths
Dim wdt As Float = PDFTable.GetColumnWidth(0)
wdt= wdt + PDFTable.GetColumnWidth(1)
wdt = 260 - wdt
PDFTable.SetColumnWidth(2,wdt)
PDFTable.WrapAroundCellText
For R = 0 To 4
Dim PDFImage As PDFjetImage
If R=1 Then
PDFImage.Initialize(PDFjetPDF1, File.OpenInput(File.DirTemp, "CkTrue.png"), PDFjetConstants1.ImageType.PNG)
Else
PDFImage.Initialize(PDFjetPDF1, File.OpenInput(File.DirTemp, "CkFalse.png"), PDFjetConstants1.ImageType.PNG)
End If
PDFImage.ScaleBy(0.25)
PDFTable.SetColumnWidth(0,PDFImage.GetWidth *1.5)
PDFTable.GetRow(R*4).Get(0).SetImage(PDFImage) ''' it's the * 4 part that gets it in right row
Next
PDFTable.DrawOn(PDFPage)
DeleteTempFiles(ImageFiles)
PDFjetPDF1.Close
End Sub