27-12-16, 11:57 AM
السلام عليكم
قمت بعمل تصدير للبيانات من DGV-Visual Basic EXPRESS 2010 الى PDF
بإستخدام ITextSharp
لكن بيناتي كانت باللغة العربية لذا لم تُصَدّر
وعند إدخال بيانات باللغة الانجليزية تم تصديرها بنجاح
ماهي الطريقة لتصدير البيانات من ال DGV في الفيجوال بيسك للPDF بالعربي
قمت بعمل تصدير للبيانات من DGV-Visual Basic EXPRESS 2010 الى PDF
بإستخدام ITextSharp
لكن بيناتي كانت باللغة العربية لذا لم تُصَدّر
وعند إدخال بيانات باللغة الانجليزية تم تصديرها بنجاح
ماهي الطريقة لتصدير البيانات من ال DGV في الفيجوال بيسك للPDF بالعربي
PHP كود :
Imports iTextSharp.text
Imports iTextSharp.text.pdf
PHP كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim pdfTable As New PdfPTable(DataGridView1.ColumnCount)
pdfTable.DefaultCell.Padding = 3
pdfTable.WidthPercentage = 30
pdfTable.HorizontalAlignment = Element.ALIGN_LEFT
pdfTable.DefaultCell.BorderWidth = 1
'Adding Header row
For Each column As DataGridViewColumn In DataGridView1.Columns
Dim cell As New PdfPCell(New Phrase(column.HeaderText))
'cell.BackgroundColor = New iTextSharp.text.Color(240, 240, 240)
pdfTable.AddCell(cell)
Next
'Adding DataRow
For Each row As DataGridViewRow In DataGridView1.Rows
For Each cell As DataGridViewCell In row.Cells
If cell.Value IsNot Nothing AndAlso cell.Value.ToString <> "" Then
pdfTable.AddCell(cell.Value.ToString())
Else
pdfTable.AddCell("")
End If
Next
Next
'Exporting to PDF
Dim folderPath As String = "C:\Users\sh\Desktop\FP\"
If Not Directory.Exists(folderPath) Then
Directory.CreateDirectory(folderPath)
End If
Using stream As New FileStream(folderPath & "DataGridViewExport.pdf", FileMode.Create)
Dim pdfDoc As New Document(PageSize.A2, 10.0F, 10.0F, 10.0F, 0.0F)
PdfWriter.GetInstance(pdfDoc, stream)
pdfDoc.Open()
pdfDoc.Add(pdfTable)
pdfDoc.Close()
stream.Close()
End Using
End Sub