Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: DataGridView to PDF
Autor: Tweety2016
Datum: 16.03.16 13:07
Das hier ist mein Code zum Export nach PDF: Private Sub WSFK_Click(sender As Object, e As EventArgs) Handles WSFK.Click 'Creating iTextSharp Table from the DataTable data Dim myColCount As Integer For Each col As DataGridViewColumn In DataGridView1.Columns If col.Visible Then myColCount += 1 End If Next Dim pdfTable As New PdfPTable(myColCount) pdfTable.DefaultCell.Padding = 3 'pdfTable.WidthPercentage = 30.0F pdfTable.HorizontalAlignment = Element.ALIGN_LEFT pdfTable.DefaultCell.BorderWidth = 1 Dim myColumnWWidths As Integer() ReDim myColumnWWidths(pdfTable.NumberOfColumns - 1) For myIndex As Integer = 0 To myColumnWWidths.Count - 1 myColumnWWidths(myIndex) = 300I Next 'Adding Header row For Each column As DataGridViewColumn In DataGridView1.Columns If column.Visible Then Dim cell As New PdfPCell(New Phrase(column.HeaderText)) cell.BackgroundColor = New iTextSharp.text.Color(240, 240, 240) pdfTable.AddCell(cell) End If Next 'Adding DataRow With DataGridView1 For Each row As DataGridViewRow In .Rows With row If FilterRow(row) Then For Each cell As DataGridViewCell In row.Cells Dim x As String = "" If cell.Visible Then If Not cell.Value Is Nothing Then x = cell.Value.ToString End If End If pdfTable.AddCell(x) '??????????? Next cell End If End With Next row End With 'Exporting to PDF Dim folderPath As String = "C:\Desktop\" Dim fileName As String = folderPath & "Test.pdf" If Not Directory.Exists(folderPath) Then Directory.CreateDirectory(folderPath) End If If File.Exists(fileName) Then File.Delete(fileName) End If Using stream As New FileStream(fileName, FileMode.Create) Dim pdfDoc As New Document(iTextSharp.text.PageSize.A2.Rotate, 10.0F, 10.0F, 10.0F, 0.0F) PdfWriter.GetInstance(pdfDoc, stream) pdfDoc.Open() pdfDoc.Add(pdfTable) pdfDoc.Close() stream.Close() End Sub

DataGridView to PDF	2.654	Tweety2016	15.03.16 14:52
Re: DataGridView to PDF	1.952	Manfred X	15.03.16 15:10
Re: DataGridView to PDF	1.987	Tweety2016	15.03.16 16:19
Re: DataGridView to PDF	1.882	Manfred X	15.03.16 17:01
Re: DataGridView to PDF	1.919	Tweety2016	15.03.16 19:19
Re: DataGridView to PDF	1.875	Tweety2016	15.03.16 19:51
Re: DataGridView to PDF	1.959	Manfred X	15.03.16 20:49
Re: DataGridView to PDF	2.074	Tweety2016	15.03.16 21:16
Re: DataGridView to PDF	1.851	Manfred X	15.03.16 21:27
Re: DataGridView to PDF	1.867	Tweety2016	16.03.16 11:56
Re: DataGridView to PDF	2.082	Manfred X	16.03.16 12:15
Re: DataGridView to PDF	1.988	Tweety2016	16.03.16 12:51
Re: DataGridView to PDF	1.900	Tweety2016	16.03.16 13:07
Re: DataGridView to PDF	1.955	Manfred X	16.03.16 13:10
Kleiner Code-Test	1.923	Manfred X	16.03.16 13:54
Re: Kleiner Code-Test	1.853	Tweety2016	17.03.16 15:26

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen