troubleshooting Question

rdlc "Print Layout" not showing all pages of report.

Avatar of FOS-Bret
FOS-BretFlag for United States of America asked on
.NET ProgrammingVisual Basic.NET
1 Comment1 Solution1576 ViewsLast Modified:
Hey All,

VB 2005. ADO.NET. NOT Crystal Reports.

I have some mailing label reports that I'm generating and I finally got them lined up perfectly for the 30-up labels I use.

I like the "Print Layout" view much more than the regular report view, so I'm displaying my reports to that view right out of the chute.

The first time I run a mailing label report, all of the pages of the report are there and print correctly. Thereafter, every time I run the same report, the first page is missing from the "Print Layout" view (and doesn't print).

If I click back to the regular view, I see all pages, but the first page still doesn't print.

Below is the code for the form that loads the report. Any ideas?

Any help will be much appreciated.

Thanks,
Bret

Imports System.Data.OleDb
Imports Microsoft.Reporting.WinForms

Public Class frmReportViewer

    Private connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataFile & ";"
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.WindowState = FormWindowState.Maximized
        'MsgBox(Me.WhichTitle)
        Try
            Me.ReportViewer1.Reset()
            With Me.ReportViewer1.LocalReport
                .ReportPath = Application.StartupPath & "\..\..\" & Me.WhichReport
                .DataSources.Clear()
                Dim parameters(0) As ReportParameter
                parameters(0) = New ReportParameter("Title", Me.WhichTitle)
                .SetParameters(parameters)
            End With
            Dim SQL As String = Me.WhichSQL
            Using da As New OleDbDataAdapter(SQL, connString)
                Using ds As New DataSet
                    da.Fill(ds, "tblMembers")
                    Dim rptDataSource As New ReportDataSource("ID_NET_SJ_DBDataSet_tblMembers", ds.Tables("tblMembers"))
                    Me.ReportViewer1.LocalReport.DataSources.Add(rptDataSource)
                End Using
            End Using
            ReportViewer1.RefreshReport()
        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

    Private Sub ReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportViewer1.Load
        Me.ReportViewer1.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
        Me.ReportViewer1.ZoomMode = ZoomMode.FullPage
    End Sub
End Class
ASKER CERTIFIED SOLUTION
FOS-Bret

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 1 Comment.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros