pdfCellの数と等しくないか、または割り切れるpdfTableをエクスポートするにはどうすればいいですか？

Question

私は現在、選択された各アイテムを読み込み、アイテムのバーコードを含むセルを作成する（エクスポートするセルは、ユーザーが入力した数に依存します）、DataGridViewからループしていますが、私はpdfTable.Columns（5）を持っているので、1つのバーコードラベル（1 pdfCell）はエクスポートされず、「pdfTableは空です」と表示されます。これは、私のテーブルのカラム数が5であることを意味します。 5で割り切れないセル量をエクスポートしないでください。

例1：アイテム - バナナ（10バーコード印刷する） - エクスポート

例2：アイテム - アップル（1つのバーコード印刷する） - 1（1）がカバーしていないため、エクスポートされないが（PDFTableは空です） 5（5）の列カウントを持つpdfTableの単一の行。ここで

Public Function print_itembarcodes(lbl169 As Label) 
    Dim pdfTable As New PdfPTable(5) 
    pdfTable.DefaultCell.Padding = 3 
    pdfTable.WidthPercentage = 100 
    pdfTable.HorizontalAlignment = Element.ALIGN_CENTER 
    pdfTable.DefaultCell.Border = Rectangle.NO_BORDER 

    For i As Integer = 0 To Admin_Menu.BarcodePrintListGrid.Rows.Count - 1 
     Admin_Menu.Label169.Text = Admin_Menu.BarcodePrintListGrid.Rows(i).Cells(1).Value 'Item Barcode' 
     Barcode.process_printbarcode(Admin_Menu.Label169) 'Make barcode image function' 
     save_printbarcode() 'Save barcode to desktop function' 

     For j As Integer = 0 To Admin_Menu.BarcodePrintListGrid.Rows(i).Cells(5).Value 'Quantity of barcodes to be printed per item' 
      pdfTable.AddCell(create_barcodecell) 'Add cell with barcode function' 
     Next 

    Next 


    Try 

     'Exporting to PDF 
     Dim folderPath As String = "C:\Temp\" 
     If Not Directory.Exists(folderPath) Then 
      Directory.CreateDirectory(folderPath) 
     End If 
     Using stream As New FileStream(folderPath & "temp2.pdf", FileMode.Create) 
      Dim pdfdoc As New Document(PageSize.A4, 15.0F, 15.0F, 10.0F, 20.0F) 
      PdfWriter.GetInstance(pdfdoc, stream) 
      pdfdoc.Open() 
      pdfdoc.Add(pdfTable) 'Table Declaration' 
      pdfdoc.Close() 
      stream.Close() 


      System.Diagnostics.Process.Start("C:\\Temp\\temp2.pdf") 

     End Using 


    Catch ex As MySqlException 
     MsgBox(ex.Message) 
    Finally 
     MysqlConn.Dispose() 
    End Try 

    Return True 
End Function 

は、バーコードを用いて細胞を作成するための私のコードです：

Public Function create_barcodecell() 
    Dim SaveFileDialog1 = "D:\School\Capstone\Sta. Lucia East Bowling and Billiard Hall Management System\Item Barcodes\" 
    Dim Barcode2 As Image = Image.GetInstance(SaveFileDialog1 + Admin_Menu.Label169.Text + ".jpg") 'Barcode Image' 
    Barcode2.ScaleAbsolute(80.0F, 25.0F) 
    img.ScalePercent(15.0F) 'Company Logo Image' 
    img.Alignment = iTextSharp.text.Image.ALIGN_RIGHT 


    Dim titleFont = FontFactory.GetFont(FontFactory.HELVETICA_BOLD, 8) 
    Dim paragraph As New Paragraph() 

    paragraph.Add(New Chunk(img, 0, 0)) 
    paragraph.Add(New Chunk("  Item Tag", titleFont)) 

    Dim pdfCell As New PdfPCell 
    pdfCell.UseVariableBorders = True 
    pdfCell.BackgroundColor = BaseColor.GRAY 
    pdfCell.BorderColorLeft = BaseColor.GREEN 
    pdfCell.BorderColorRight = BaseColor.GREEN 
    pdfCell.BorderColorTop = BaseColor.GREEN 
    pdfCell.BorderColorBottom = BaseColor.GREEN 


    pdfCell.AddElement(paragraph) 
    pdfCell.AddElement(Barcode2) 
    pdfCell.AddElement(New Paragraph("  " + Admin_Menu.Label169.Text, titleFont)) 


    Return pdfCell 
End Function 

Answer 1

主な問題は

です。ここ

は、「バーコードは、ボタンラベル印刷」の私のコードです

したがって、5で割り切れないセル数量をエクスポートしようとすると、エクスポートされません。そのテーブルの行の残りのセルが空のものであることをしている場合

、あなたは5

どのようにすることができます割り切れるセルの数を持っているまで、単に追加の空のセルを追加することによってこの問題を解決することができます空のセルを追加しますか？

pdfTableに新しい空のセルを追加する構文は、いくつかの修正が必要になる場合がありますので、私は、この世紀の開始から任意のVBプログラミングを行っていないが、基本的に、あなたは単に

pdfTable.AddCell(New PdfPCell()) 

を行います。

そして、5で割り切れるまで空のセルを追加するにはどうすればよいですか？

すでに追加したセルの数をカウントし、余分なくカウントを5で割ることができるまで追加します。

Dim Count as Integer = 0 
For j As Integer = 1 To Admin_Menu.BarcodePrintListGrid.Rows(i).Cells(5).Value 'Quantity of barcodes to be printed per item' 
    pdfTable.AddCell(create_barcodecell) 'Add cell with barcode function' 
    Count = Count + 1 
Next 
While count Mod 5 <> 0 
    pdfTable.AddCell(New PdfPCell()) 
    Count = Count + 1 
End While 

（私はあなたが別のカウンタを必要としない可能性があることに依存。jはまだ旧Forループの外に存在していてその値かどうか、特に、もはやVBの詳細についてはよく分からない...）