CRYSTAL REPORTS 13 E VB 2010

Dim cmd As OleDbCommand
Private paginaAtual  As  Integer = 1
Private MyConnection  As OleDbConnection
Private Leitor  As OleDbDataReader
Private RelatorioTitulo As  String

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
 [ô]obtem a string de conexao
 MyConnection =  New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:    este\Teste.mdb[Ô])

 [ô]define o titulo do relatorio
 RelatorioTitulo =  [Ô]Lista de Clientes - [Ô]

 [ô]define os objetos printdocument e os eventos associados
 Dim pd  As Printing.PrintDocument = New Printing.PrintDocument()

[ô]IMPORTANTE - definimos 3 eventos para tratar a impressão : PringPage, BeginPrint e EndPrint.
AddHandler pd.PrintPage, New Printing.PrintPageEventHandler(AddressOf Me.pdRelatorios_PrintPage)
AddHandler pd.BeginPrint, New Printing.PrintEventHandler(AddressOf Me.Begin_Print)
AddHandler pd.EndPrint, New Printing.PrintEventHandler(AddressOf Me.End_Print)

 [ô]define o objeto para visualizar a impressao
 Dim objPrintPreview As  New PrintPreviewDialog
 
 Try
[ô]define o formulário como maximizado e com Zoom

 With objPrintPreview
   .Document = pd
   .WindowState = FormWindowState.Maximized
   .PrintPreviewControl.Zoom = 1
   .Text =  [Ô]Relacao de Clientes[Ô]
   .ShowDialog()
End  With
 
Catch ex  As Exception
    MessageBox.Show(ex.ToString())
   End  Try
End  Sub

Dim StrPastaRelatorio As String
            StrPastaRelatorio = String.Concat(Application.StartupPath.ToString(), [Ô]\Clientes.rdlc[Ô])
            StrPastaRelatorio = StrPastaRelatorio.Replace([Ô]bin\Debug\[Ô], [Ô][Ô])
            ReportViewer1.LocalReport.ReportPath = StrPastaRelatorio

            Dados da Conexao
            StrConexao = [Ô]Data Source=SERVIDOR[Ô] & _
                         [Ô];Persist Security Info=True[Ô] & _
                         [Ô];Initial Catalog=MEU BANCO[Ô] & _
                         [Ô];User ID=sa[Ô] & _
                         [Ô];Password=123[Ô]
            StrConn.ConnectionString = StrConexao
            StrConn.Open()

            String de Consulta
            StrSQL = [Ô]Select CodCliente, Nome From Clientes[Ô]

            Dim Cmd As New SqlCommand(StrSQL, StrConn)
            Dim DReader As SqlDataReader

            Converter o DataReader para DataTable
            Dim DTable As New DataTable([Ô]Clientes[Ô])
            DReader = Cmd.ExecuteReader()
            DTable.Load(DReader)
            DReader.Close()

            Definindo o DataSource do Relatorio
            Dim NewReporDataSource As ReportDataSource = New ReportDataSource([Ô]Clientes[Ô], DTable)
            ReportViewer1.LocalReport.DataSources.Clear()
            ReportViewer1.RefreshReport()