take print of pdf

Imports System.IO

Imports System.Data

Imports System.Reflection

Imports iTextSharp.text

Imports iTextSharp.text.pdf

Public Class frmDetailreport

Dim grpid As Integer = 0

Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click

grid_data.Tables.Clear()

Dim strsql As String

Dim m_db As New CDataAccess

''strsql = "SELECT tblcollection.TrasactionID, tblcollection.VehicleNumber, tblcollection.VehicleType, Format(INDATE,'dd/mm/yyyy') AS VehicleINDATE, Format(INDATE,'hh:nn:ss') AS VehicleINTIME,InSlip, OutSlip, DeviceID, Amount, SupervisorID, Fromtime, Totime, ExtraAmountperHour, Billtype, SupervisorName, ShiftNo FROM tblcollection where INDATE " ''>=#" & DtFrom.Value.Date & "# and INDATE<=#" & DTto.Value.Date & "#;"

''strsql = "SELECT DISTINCT tblcollection.VehicleType, Count(tblcollection.VehicleType) AS CountOfVehicleType, Count(tblcollection.VehicleType)*Avg(tblcollection.Amount) AS TotalAmount FROM tblcollection WHERE (((tblcollection.DeviceID)='" & cmbdeviceid.Text & "'))GROUP BY tblcollection.VehicleType"

''strsql = "SELECT DISTINCT tblcollection.VehicleType, Count(tblcollection.VehicleType) AS CountOfVehicleType, Count(tblcollection.VehicleType)*Avg(tblcollection.Amount) AS TotalAmount FROM tblcollection WHERE tblcollection.INDATE Between #" & DtFrom.Value.Date.ToString("MM/dd/yyyy") & "# And #" & DTto.Value.Date.ToString("MM/dd/yyyy") & "# AND tblcollection.DeviceID ='" & cmbdeviceid.Text & "' GROUP BY tblcollection.VehicleType"

strsql = "SELECT DISTINCT tblcollection.VehicleType, Count(tblcollection.VehicleType) AS CountOfVehicleType, Count(tblcollection.VehicleType)*Avg(tblcollection.Amount) AS TotalAmount, Count(tblcollection.VehicleType)*Avg(tblcollection.ExtraAmountperHour) AS ExtraTotalAmount, (TotalAmount+extraTotalAmount) AS Total FROM tblcollection WHERE tblcollection.INDATE Between #" & DtFrom.Value.Date.ToString("MM/dd/yyyy 06:00:00") & "# And #" & DTto.Value.Date.ToString("MM/dd/yyyy 05:59:59") & "# AND tblcollection.DeviceID ='" & cmbdeviceid.Text & "' GROUP BY tblcollection.VehicleType"

grid_data = m_db.getdata(strsql, strconnection)

If Not grid_data Is Nothing Then

Gettablewithtotal(grid_data.Tables(0))

Else

MsgBox("No Records found", MsgBoxStyle.Information)

End If

End Sub

Private Sub Gettablewithtotal(ByVal dt As DataTable)

Dim c1 As Double = 0

Dim c2 As Double = 0

Dim c3 As Double = 0

Dim c4 As Double = 0

For Each d As DataRow In dt.Rows

DataGridView1.Rows.Add()

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0).Value = d(0).ToString()

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(1).Value = d(1).ToString()

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(2).Value = d(2).ToString()

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(3).Value = d(3).ToString()

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(4).Value = d(4).ToString()

c1 += CDbl(Convert.ToInt32(d(1)))

c2 += CDbl(Convert.ToInt32(d(2)))

c3 += CDbl(Convert.ToInt32(d(3)))

c4 += CDbl(Convert.ToInt32(d(4)))

DataGridView1.Rows.Add()

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0).Value = "Total"

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(1).Value = c1

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(2).Value = c2

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(3).Value = c3

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(4).Value = c4

End Sub

Private grid_data As New DataSet

Private Sub loaddata()

Dim strsql As String = ""

Dim m_ds As DataSet

Dim m_db As New CDataAccess

'' strsql = "SELECT tblcollection.TrasactionID, tblcollection.VehicleNumber, tblcollection.VehicleType, Format(INDATE,'dd/mm/yyyy') AS VehicleINDATE, Format(INDATE,'hh:nn:ss') AS VehicleINTIME,InSlip, OutSlip, DeviceID, Amount, SupervisorID, Fromtime, Totime, ExtraAmountperHour, Billtype, SupervisorName, ShiftNo FROM tblcollection"

m_ds = m_db.getdata(strsql, strconnection)

If Not m_ds Is Nothing Then

DataGridView1.DataSource = m_ds.Tables(0).DefaultView

DataGridView1.AutoResizeColumns()

DataGridView1.ReadOnly = True

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If (grid_data.Tables.Count = 0) Then

MsgBox("Click on GenerateReport Before use this Expordata Otherwise No Records will be Found", MsgBoxStyle.Critical)

Return

End If

If (grid_data.Tables.Count = 0) Then

MsgBox("Click on GenerateReport Before use this Expordata Otherwise No Records will be Found", MsgBoxStyle.Critical)

Return

End If

txtbrowse.Text = ""

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

txtbrowse.Text = SaveFileDialog1.FileName() + ".pdf"

Dim pdfTable As New PdfPTable(DataGridView1.ColumnCount)

pdfTable.DefaultCell.Padding = 0 '3

pdfTable.WidthPercentage = 101 '30

pdfTable.HorizontalAlignment = Element.ALIGN_RIGHT

pdfTable.DefaultCell.BorderWidth = 1

pdfTable.HorizontalAlignment = 0

Dim headfont As New Font(iTextSharp.text.Font.FontFamily.COURIER, 8, FontStyle.Regular)

Dim datafont As New Font(iTextSharp.text.Font.FontFamily.COURIER, 6, FontStyle.Regular)

For Each column As DataGridViewColumn In DataGridView1.Columns

Dim cell As New PdfPCell(New Phrase(column.HeaderText, headfont))

cell.BackgroundColor = New iTextSharp.text.BaseColor(240, 240, 240)

pdfTable.AddCell(cell)

'Adding DataRow

For Each row As DataGridViewRow In DataGridView1.Rows

For Each cell As DataGridViewCell In row.Cells

pdfTable.AddCell(New PdfPCell(New Phrase(cell.Value.ToString(), datafont)))

'Exporting to PDF

Using stream As New FileStream(txtbrowse.Text, FileMode.Create)

Dim pdfDoc As New Document(PageSize.A4, 20.0F, 20.0F, 20.0F, 20.0F)

Dim iTextfont As New Font(iTextSharp.text.Font.FontFamily.TIMES_ROMAN, 10, 10)

PdfWriter.GetInstance(pdfDoc, stream)

pdfDoc.Open()

pdfDoc.Add(pdfTable)

pdfDoc.Close()

stream.Close()

End Using

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Close()

End Sub

Private Sub frmDetailreport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim m_passtypes As New frmDetailreport

If DataGridView1.SelectedRows.Count > 0 Then

m_passtypes.txtVehicleType.Text = DataGridView1.SelectedRows(0).Cells(0).Value.ToString()

m_passtypes.txtVehiclecount.Text = DataGridView1.SelectedRows(0).Cells(1).Value.ToString()

m_passtypes.txtamount.Text = DataGridView1.SelectedRows(0).Cells(2).Value.ToString()

m_passtypes.txtextraamount.Text = DataGridView1.SelectedRows(0).Cells(3).Value.ToString()

m_passtypes.txttotalamount.Text = DataGridView1.SelectedRows(0).Cells(4).Value.ToString()

End If

Dim m_db As New CDataAccess

Dim m_ds As New DataSet, strqry As String = ""

Dim i As Integer

strqry = "SELECT DISTINCT DeviceID FROM tblcollection;"

m_ds = m_db.getdata(strqry, strconnection)

If Not m_ds Is Nothing Then

If m_ds.Tables(0).Rows.Count > 0 Then

For i = 0 To m_ds.Tables(0).Rows.Count - 1

cmbdeviceid.Items.Add(m_ds.Tables(0).Rows(i)(0))

Next i

End If

m_ds.Dispose()

End If

End Sub

Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged

Try

If DataGridView1.SelectedRows.Count > 0 Then

txtVehicleType.Text = DataGridView1.SelectedRows(0).Cells(0).Value.ToString()

txtVehiclecount.Text = DataGridView1.SelectedRows(0).Cells(1).Value.ToString()

txtamount.Text = DataGridView1.SelectedRows(0).Cells(2).Value.ToString()

txtextraamount.Text = DataGridView1.SelectedRows(0).Cells(3).Value.ToString()

txttotalamount.Text = DataGridView1.SelectedRows(0).Cells(4).Value.ToString()

End If

Catch ex As Exception

End Try

End Sub

Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting

Dim specialCellStyle As New DataGridViewCellStyle

specialCellStyle.BackColor = Color.Snow

specialCellStyle.ForeColor = Color.Black

Dim regularCellStyle As New DataGridViewCellStyle

regularCellStyle.BackColor = Color.AliceBlue

regularCellStyle.ForeColor = Color.Black

If e.RowIndex Mod 2 = 0 Then

DataGridView1.Rows(e.RowIndex).DefaultCellStyle = specialCellStyle

Else

DataGridView1.Rows(e.RowIndex).DefaultCellStyle = regularCellStyle

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label2.Left -= 10

If Label2.Left <= -Width Then

Label2.Left = Width

End If

End Sub

End Class

3 Replies

Know the answer? Post it — somebody with the same question will find it here.

Flora Tome11y ago
Since loading PDF format is not natively supported by the default .NET assemblies, you need to use a programming SDK (like leadtools or iTextSharp) to support this feature.
I am not familiar with iTextSharp SDK, but I used leadtools for several years to load PDF files. If you mean that you want to save the PDF file after loading it, you can simply load the PDF file as raster image using one of leadtools .NET load functions, and then save it to any supported file format (like PNG, JPEG, GIF, etc.). I am currently using the following code to load and save PDF files to PNG format using leadtools:
+--------------+
using (RasterCodecs codecs = new RasterCodecs())
{
codecs.Options.RasterizeDocument.Load.XResolution = 300;
codecs.Options.RasterizeDocument.Load.YResolution = 300;

RasterImage image = codecs.Load(imageFileName, p);

codecs.Save(image, @"c:\Temp\Print.png", RasterImageFormat.Png, 24);
}
+--------------+

I hope this helps :)
0
shiju kv11y ago
its really confucing bro .could you please explain it shortly
0
Naidu AMMAN11y ago
Imports System.IO
Imports System.Data
Imports System.Reflection
Imports iTextSharp.text
Imports iTextSharp.text.pdf

Public Class frmDetailreport
Dim grpid As Integer = 0

Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
grid_data.Tables.Clear()
Dim strsql As String
Dim m_db As New CDataAccess
''strsql = "SELECT tblcollection.TrasactionID, tblcollection.VehicleNumber, tblcollection.VehicleType, Format(INDATE,'dd/mm/yyyy') AS VehicleINDATE, Format(INDATE,'hh:nn:ss') AS VehicleINTIME,InSlip, OutSlip, DeviceID, Amount, SupervisorID, Fromtime, Totime, ExtraAmountperHour, Billtype, SupervisorName, ShiftNo FROM tblcollection where INDATE " ''>=#" & DtFrom.Value.Date & "# and INDATE<=#" & DTto.Value.Date & "#;"
''strsql = "SELECT DISTINCT tblcollection.VehicleType, Count(tblcollection.VehicleType) AS CountOfVehicleType, Count(tblcollection.VehicleType)*Avg(tblcollection.Amount) AS TotalAmount FROM tblcollection WHERE (((tblcollection.DeviceID)='" & cmbdeviceid.Text & "'))GROUP BY tblcollection.VehicleType"
''strsql = "SELECT DISTINCT tblcollection.VehicleType, Count(tblcollection.VehicleType) AS CountOfVehicleType, Count(tblcollection.VehicleType)*Avg(tblcollection.Amount) AS TotalAmount FROM tblcollection WHERE tblcollection.INDATE Between #" & DtFrom.Value.Date.ToString("MM/dd/yyyy") & "# And #" & DTto.Value.Date.ToString("MM/dd/yyyy") & "# AND tblcollection.DeviceID ='" & cmbdeviceid.Text & "' GROUP BY tblcollection.VehicleType"

strsql = "SELECT DISTINCT tblcollection.VehicleType, Count(tblcollection.VehicleType) AS CountOfVehicleType, Count(tblcollection.VehicleType)*Avg(tblcollection.Amount) AS TotalAmount, Count(tblcollection.VehicleType)*Avg(tblcollection.ExtraAmountperHour) AS ExtraTotalAmount, (TotalAmount+extraTotalAmount) AS Total FROM tblcollection WHERE tblcollection.INDATE Between #" & DtFrom.Value.Date.ToString("MM/dd/yyyy 06:00:00") & "# And #" & DTto.Value.Date.ToString("MM/dd/yyyy 05:59:59") & "# AND tblcollection.DeviceID ='" & cmbdeviceid.Text & "' GROUP BY tblcollection.VehicleType"
grid_data = m_db.getdata(strsql, strconnection)
If Not grid_data Is Nothing Then

Gettablewithtotal(grid_data.Tables(0))
Else
MsgBox("No Records found", MsgBoxStyle.Information)
End If
End Sub

Private Sub Gettablewithtotal(ByVal dt As DataTable)
Dim c1 As Double = 0
Dim c2 As Double = 0
Dim c3 As Double = 0
Dim c4 As Double = 0
For Each d As DataRow In dt.Rows
DataGridView1.Rows.Add()
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0).Value = d(0).ToString()
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(1).Value = d(1).ToString()
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(2).Value = d(2).ToString()
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(3).Value = d(3).ToString()
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(4).Value = d(4).ToString()
c1 += CDbl(Convert.ToInt32(d(1)))
c2 += CDbl(Convert.ToInt32(d(2)))
c3 += CDbl(Convert.ToInt32(d(3)))
c4 += CDbl(Convert.ToInt32(d(4)))
Next
DataGridView1.Rows.Add()

DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0).Value = "Total"
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(1).Value = c1
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(2).Value = c2
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(3).Value = c3
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(4).Value = c4

End Sub

Private grid_data As New DataSet

Private Sub loaddata()
Dim strsql As String = ""
Dim m_ds As DataSet
Dim m_db As New CDataAccess

'' strsql = "SELECT tblcollection.TrasactionID, tblcollection.VehicleNumber, tblcollection.VehicleType, Format(INDATE,'dd/mm/yyyy') AS VehicleINDATE, Format(INDATE,'hh:nn:ss') AS VehicleINTIME,InSlip, OutSlip, DeviceID, Amount, SupervisorID, Fromtime, Totime, ExtraAmountperHour, Billtype, SupervisorName, ShiftNo FROM tblcollection"
strsql = "SELECT DISTINCT tblcollection.VehicleType, Count(tblcollection.VehicleType) AS CountOfVehicleType, Count(tblcollection.VehicleType)*Avg(tblcollection.Amount) AS TotalAmount, Count(tblcollection.VehicleType)*Avg(tblcollection.ExtraAmountperHour) AS ExtraTotalAmount, (TotalAmount+extraTotalAmount) AS Total FROM tblcollection"
m_ds = m_db.getdata(strsql, strconnection)
If Not m_ds Is Nothing Then

DataGridView1.DataSource = m_ds.Tables(0).DefaultView
DataGridView1.AutoResizeColumns()
DataGridView1.ReadOnly = True
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If (grid_data.Tables.Count = 0) Then
MsgBox("Click on GenerateReport Before use this Expordata Otherwise No Records will be Found", MsgBoxStyle.Critical)
Return
End If

If (grid_data.Tables.Count = 0) Then
MsgBox("Click on GenerateReport Before use this Expordata Otherwise No Records will be Found", MsgBoxStyle.Critical)
Return
End If

txtbrowse.Text = ""
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
txtbrowse.Text = SaveFileDialog1.FileName() + ".pdf"

Dim pdfTable As New PdfPTable(DataGridView1.ColumnCount)
pdfTable.DefaultCell.Padding = 0 '3
pdfTable.WidthPercentage = 101 '30
pdfTable.HorizontalAlignment = Element.ALIGN_RIGHT
pdfTable.DefaultCell.BorderWidth = 1
pdfTable.HorizontalAlignment = 0

Dim headfont As New Font(iTextSharp.text.Font.FontFamily.COURIER, 8, FontStyle.Regular)
Dim datafont As New Font(iTextSharp.text.Font.FontFamily.COURIER, 6, FontStyle.Regular)

For Each column As DataGridViewColumn In DataGridView1.Columns
Dim cell As New PdfPCell(New Phrase(column.HeaderText, headfont))
cell.BackgroundColor = New iTextSharp.text.BaseColor(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
pdfTable.AddCell(New PdfPCell(New Phrase(cell.Value.ToString(), datafont)))
Next
Next

'Exporting to PDF

Using stream As New FileStream(txtbrowse.Text, FileMode.Create)
Dim pdfDoc As New Document(PageSize.A4, 20.0F, 20.0F, 20.0F, 20.0F)
Dim iTextfont As New Font(iTextSharp.text.Font.FontFamily.TIMES_ROMAN, 10, 10)

PdfWriter.GetInstance(pdfDoc, stream)
pdfDoc.Open()
pdfDoc.Add(pdfTable)
pdfDoc.Close()
stream.Close()
End Using

End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub

Private Sub frmDetailreport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim m_passtypes As New frmDetailreport
If DataGridView1.SelectedRows.Count > 0 Then

m_passtypes.txtVehicleType.Text = DataGridView1.SelectedRows(0).Cells(0).Value.ToString()
m_passtypes.txtVehiclecount.Text = DataGridView1.SelectedRows(0).Cells(1).Value.ToString()
m_passtypes.txtamount.Text = DataGridView1.SelectedRows(0).Cells(2).Value.ToString()
m_passtypes.txtextraamount.Text = DataGridView1.SelectedRows(0).Cells(3).Value.ToString()
m_passtypes.txttotalamount.Text = DataGridView1.SelectedRows(0).Cells(4).Value.ToString()
End If

Dim m_db As New CDataAccess
Dim m_ds As New DataSet, strqry As String = ""
Dim i As Integer
strqry = "SELECT DISTINCT DeviceID FROM tblcollection;"
m_ds = m_db.getdata(strqry, strconnection)
If Not m_ds Is Nothing Then
If m_ds.Tables(0).Rows.Count > 0 Then
For i = 0 To m_ds.Tables(0).Rows.Count - 1
cmbdeviceid.Items.Add(m_ds.Tables(0).Rows(i)(0))

Next i
End If
m_ds.Dispose()
End If

End Sub

Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
Try
If DataGridView1.SelectedRows.Count > 0 Then
txtVehicleType.Text = DataGridView1.SelectedRows(0).Cells(0).Value.ToString()
txtVehiclecount.Text = DataGridView1.SelectedRows(0).Cells(1).Value.ToString()
txtamount.Text = DataGridView1.SelectedRows(0).Cells(2).Value.ToString()
txtextraamount.Text = DataGridView1.SelectedRows(0).Cells(3).Value.ToString()
txttotalamount.Text = DataGridView1.SelectedRows(0).Cells(4).Value.ToString()
End If
Catch ex As Exception

End Try

End Sub

Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
Dim specialCellStyle As New DataGridViewCellStyle
specialCellStyle.BackColor = Color.Snow
specialCellStyle.ForeColor = Color.Black

Dim regularCellStyle As New DataGridViewCellStyle
regularCellStyle.BackColor = Color.AliceBlue
regularCellStyle.ForeColor = Color.Black
If e.RowIndex Mod 2 = 0 Then
DataGridView1.Rows(e.RowIndex).DefaultCellStyle = specialCellStyle
Else
DataGridView1.Rows(e.RowIndex).DefaultCellStyle = regularCellStyle
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Left -= 10
If Label2.Left <= -Width Then
Label2.Left = Width
End If
End Sub
End Class
0