CR8.5
VB 6.0 SP5
I have a Visual Basic application using RDC to view and print reports. The reports print fine unless I try to print drill down material. No matter what the user does, it will only print whatever is on the top layer.
For example, I have a summary of all the sales for the month. When I double click on a sales rep, the drill down detail appears. While on the details page, I click print. It will ONLY print the Summary or ie the top pages.
The report detail prints fine when I try to print it IN Crystal Reports Developer Edition , but doesn't work in the VB application.
Here's the code:
'general declarations
Dim CrxApp As New CRAXDRT.Application
Public crxReport As CRAXDRT.Report
Option Explicit
Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
UseDefault = False
crxReport.PrinterSetup frmRDC.hWnd
crxReport.PrintOut True
End Sub
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Me.WindowState = vbMaximized
With CRViewer1
.ReportSource = frmMain.crxReport
.EnableExportButton = True
.EnableCloseButton = True
.EnableStopButton = True
.EnableDrillDown = True
.EnableProgressControl = True
.EnableRefreshButton = True
.EnableNavigationControls = True
.EnableZoomControl = True
.ViewReport
End With
Screen.MousePointer = vbDefault
End Sub
VB 6.0 SP5
I have a Visual Basic application using RDC to view and print reports. The reports print fine unless I try to print drill down material. No matter what the user does, it will only print whatever is on the top layer.
For example, I have a summary of all the sales for the month. When I double click on a sales rep, the drill down detail appears. While on the details page, I click print. It will ONLY print the Summary or ie the top pages.
The report detail prints fine when I try to print it IN Crystal Reports Developer Edition , but doesn't work in the VB application.
Here's the code:
'general declarations
Dim CrxApp As New CRAXDRT.Application
Public crxReport As CRAXDRT.Report
Option Explicit
Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
UseDefault = False
crxReport.PrinterSetup frmRDC.hWnd
crxReport.PrintOut True
End Sub
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Me.WindowState = vbMaximized
With CRViewer1
.ReportSource = frmMain.crxReport
.EnableExportButton = True
.EnableCloseButton = True
.EnableStopButton = True
.EnableDrillDown = True
.EnableProgressControl = True
.EnableRefreshButton = True
.EnableNavigationControls = True
.EnableZoomControl = True
.ViewReport
End With
Screen.MousePointer = vbDefault
End Sub