Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Group Tree Display Using Visual Basic API Calls

Status
Not open for further replies.

KeyserSoze

Programmer
May 18, 2000
79
0
0
US
Is there a way to produce the group tree display when a Crystal Reports V7.0 report is previewed on the screen?<br><br>I seem to be having a problem getting it to work.&nbsp;&nbsp;Here is a sample of the code:<br><br>Public Sub OutputToWindow(WindowTitle$)<br><br>Dim Handle As Integer<br>Dim ErrorNum As Integer<br>Dim PreviewWindow As PEWindowOptions<br>Dim ReportOptions As PEReportOptions<br><br>&nbsp;&nbsp;&nbsp;&nbsp;ReportOptions.hasGroupTree = 1<br>&nbsp;&nbsp;&nbsp;&nbsp;Handle = PESetReportOptions(JobNumber, ReportOptions)<br>&nbsp;&nbsp;&nbsp;&nbsp;PreviewWindow.hasGroupTree = 1<br>&nbsp;&nbsp;&nbsp;&nbsp;Handle = PESetWindowOptions(JobNumber, PreviewWindow)<br>&nbsp;&nbsp;&nbsp;&nbsp;Handle = PEOutputToWindow(JobNumber, WindowTitle$, 0, 0, 520, 520, 0, 0)<br>&nbsp;&nbsp;&nbsp;&nbsp;Handle = PEStartPrintJob(JobNumber, True)<br>&nbsp;&nbsp;&nbsp;&nbsp;If Handle = 0 Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ErrorNum = PEGetErrorCode(JobNumber)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox &quot;An error occurred starting the print job.&nbsp;&nbsp;Error = &quot; & ErrorNum<br>&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;<br>End Sub<br><br>Everything works except for the group tree.&nbsp;&nbsp;Help!<br><br>Thanks!<br><br><br>
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top