ccherry

I'm using Crystal Reports 9 with VB.NET in which I'm using a form called, "frmShowReport." It is simply a form with a CrystalReportViewer control placed on it. I have set the ReportSource in that control to be crystalreport11, which is my .rpt file. The above function sets up the SQL statement inside of the report and then brings up the CrystalReportViewer. This all works great. The new form pops up and the report performs exactly as expected.

My problem, however, comes when I try to print this report from the Viewer. I press the print button from the viewer, hit OK when the print options come up and it does send the report to my laser printer. This particular report I am printing is 3 pages long. The printer prints 3 pages, however, only a small portion of each page is printed to the paper, and also it’s printed in a weird position. It prints the upper-left hand ¼ of the report in the upper-right hand ¼ of the page, and the rest of the paper is blank.

At first I think, “OK printer driver is messed up.” However, I can print from Word, Excel, and other programs just fine. Also, the report prints perfectly if I print a test version from the Crystal Reports report editor. So, it seems I’m missing some sort of setup command from inside of VB for the CRV or perhaps the crystal reports object itself. I just don’t have the foggiest idea what that command is.

Here is the function that sets up my Crystal Reports report, and then shows the report to the user.
Thanks in advance for your help.



Private Sub tlbStatSum_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbStatSum.ButtonClick

Dim fReport As New frmShowReport()

Dim selectionFormula As String

Dim intStore As Integer



Select Case tlbStatSum.Buttons.IndexOf(e.Button)

Case 0

fReport.crystalReport11.SetParameterValue("varstore", 1)

fReport.crystalReport11.SetParameterValue("varsummary", 1)

fReport.Text = "Inventory Profitability Analysis - Printable Statistics Summary"

Case 1

fReport.crystalReport11.SetParameterValue("varstore", 0)

fReport.crystalReport11.SetParameterValue("varsummary", 0)

fReport.Text = "Inventory Profitability Analysis - Detailed Report"

Case Else

Return

End Select

fIstat.txtVend.Text = fIstat.txtVend.Text.ToUpper

fIstat.txtCatno.Text = fIstat.txtCatno.Text.ToUpper



selectionFormula = vbNullString

With fReport

.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "MyPassword"

.crystalReport11.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Landscape

.crystalReport11.SetParameterValue("vend", fIstat.txtVend.Text)

.crystalReport11.SetParameterValue("catno", fIstat.txtCatno.Text)

If fIstat.cmbStore.SelectedValue <> -1 Then

intStore = fIstat.cmbStore.SelectedValue

selectionFormula = "({COMMAND.STORE} = " & intStore & ")"

.crystalReport11.SetParameterValue("varstore", intStore)

End If

If fIstat.chkPrimItemSw.Checked = True Then

If selectionFormula <> vbNullString Then

selectionFormula = selectionFormula & " and "

End If

selectionFormula = selectionFormula & "({COMMAND.PRIMARY} = ""P"")"

End If

If fIstat.chkSpecSw.Checked = True Then

If selectionFormula <> vbNullString Then

selectionFormula = selectionFormula & " and "

End If

selectionFormula = selectionFormula & "({COMMAND.TYPE}<>""X"")"

End If

.CrystalReportViewer1.SelectionFormula = selectionFormula

.CrystalReportViewer1.ShowRefreshButton = False

.Show()

End With

End Sub

reboot

[ednf]..[/ednf]