Click here to Skip to main content
11,428,876 members (61,663 online)
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB.NET DataGridView , +
Hi friends!

I'm looking for an easy way to enable a user of my app to print the contet of a GridView.However, I think an easy way will be to convert it into a Crystal Report or pdf (many people say to pdf is terrible), so, I'd like to convert it into a Cyrstal Report (or just a report). Some people have talked about converting a GridView into a Crystal Report, but none have I seen talking about this when I generated my GridView in codes. I mean, people will talk of creating the dataset and data adapter using the GUI in VS2010, but I created mine in codes. Also, when telling the CR where to get its data, people talk about dragging the data connections (table fields etc) to the report in a GUI way, but I can't see how to do that in codes. I use codes for dataset and data adapter in my application forms, how can I code the Crystal Report?
(I develop with VB.NET, VS 2010)

Public inc As Integer
    Public MaxRows As Integer
    Public con As New OleDb.OleDbConnection
    Public dbProvider As String
    Public dbSource As String
    Public ds As New DataSet
    Public da As OleDb.OleDbDataAdapter
    Dim sql As String
    Dim sqlVacation As String
    Dim sqlRadio As String
 
      'database

        dbProvider = "PROVIDER= Microsoft.Jet.OLEDB.4.0;"
        dbSource = "Data Source = data/Human Resource.mdb;"
 
        con.ConnectionString = dbProvider & dbSource
 
        'Search for Department

        If rdDept.Checked = True Then
 
            ds.Tables.Clear()
            con.Open()
            sqlRadio = "SELECT ID,FirstName,MiddleName,Surname,Phone,Birthday,Empl_Year,Department,Residence,Status " _
            + "FROM tblDetails" _
            + " WHERE Department = '" & Trim(Me.txtSearch.Text) & "'"
 
            da = New OleDb.OleDbDataAdapter(sqlRadio, con)
            da.Fill(ds, "HumanResource")
            con.Close()
 
            'Fill the data grid
            dgv1.DataSource = ds.Tables("HumanResource")
 
            'If nothing was found
            If ds.Tables("HumanResource").Rows.Count = 0 Then
                MsgBox("No any record found matching your search.", vbCritical, "GreatestHR:Search Results")
             dgv1.DataSource = ds.Tables("HumanResource")
            End If

I want to enable the user to print these results by creating a Crystal Report that will get its data from this gridView, (then I can print from the CR).
I have googled for this for some day now, can someone out there please help?

Thanks in advance,
its Frank!
Posted 12-Oct-12 13:09pm
Edited 12-Oct-12 13:12pm
Maciej Los178.8K
v2

1 solution

Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

One way is to go with this one.
  Permalink  

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



Advertise | Privacy | Mobile
Web04 | 2.8.150428.2 | Last Updated 15 Oct 2012
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100