• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 535
  • Last Modified:

Resizing Crystal window opened via API loses the controls at the top of the page

I am using VB6 and Crystal Reports 9.0
I am using the API calls in crpe32.dll for all of my reports
The following code works, but when the report window is resized, the controls disappear

  Dim sPath As String
  Dim LogOnInfo As PELogOnInfo
  Dim TableType As PETableType
  Dim sTemp As String
  sPath = sReportPath & "Report.rpt"
  result% = PEOpenEngine()
  If result% = 0 Then
    MsgBox "Could not open print engine"
    Exit Sub
  End If
  jobnum% = PEOpenPrintJob(sPath)
  errorcode% = PEGetErrorCode(jobnum%)
  If errorcode% <> 0 Then
    result% = PEGetErrorText(jobnum%, textHandle&, textLength%)
    ' Get the text from the handle
    ErrorText$ = String$(textLength%, 0)
    result% = PEGetHandleString(textHandle&, ErrorText$, textLength%)
    ErrorText$ = Trim$(ErrorText$)
    ErrorText$ = Left$(ErrorText$, Len(ErrorText$) - 1)
    MsgBox ErrorText
  End If
  TableType.StructSize = PE_SIZEOF_TABLE_TYPE
  LogOnInfo.StructSize = PE_SIZEOF_LOGON_INFO
  result = PEGetNthTableType(jobnum, 0, TableType)
  LogOnInfo.ServerName = sServerName
  LogOnInfo.DatabaseName = "AB"
  LogOnInfo.UserID = "sa"
  LogOnInfo.Password = ""
  result = PELogOnServer(TableType.DLLName, LogOnInfo)
  Dim crdev As crDEVMODE
  Dim sD As String, sP As String, sT As String
  sD = sWorkDriverName
  sP = sWorkPrinterName
  sT = sWorkPrinterPort
  handle = crPEGetSelectedPrinter(jobnum, sD, sP, sT, crdev)
  handle = crPESelectPrinter(jobnum, sWorkDriverName, sWorkPrinterName, sWorkPrinterPort, crdev)
  'Print to preview window
  If sOutput = "P" Then
    result = PEOutputToPrinter(jobnum, 1)
  ElseIf sOutput = "S" Then
    result = PEOutputToWindow(jobnum, "Report", 0, 0, IIf(FrmMain.ScaleWidth \ Screen.TwipsPerPixelX > 860, 860, FrmMain.ScaleWidth \ Screen.TwipsPerPixelX), FrmMain.ScaleHeight \ Screen.TwipsPerPixelY, 0, FrmMain.hWnd)
  End If
  If result <> 1 Then
    'DisplayPrintError result, PRJob
    'Start print job
    result = PEStartPrintJob(jobnum, True)
  End If

  PEClosePrintJob jobnum%

frmMain, which is passed into the PEOutputToWindow() call above is my MDI parent form.

p.s. This code was ported directly from a previous Crystal Reports 7.0 project and resizing worked fine.

Thank you in advance for any help.
  • 2
  • 2
2 Solutions
According to my references, the CRPE32 method is considered legacy.  It may still work but is no longer supported for Crystal 9.  I don't have my Crystal 8 reference here.  I'll look it up in the morning to see if there is a change between CR7 and CR8.

If it helps, I took the code from here...


..., update the global32.bas with the one that shipped with CR9, update it to incorporate an MDI form and your PEOutputToWindow statemen, and was NOT able to reproduce the behavior you describe.

I haven't used the API at all.  If I wasn't eyeballs deep in other stuff, I'd try to do some more digging for you.  Gook luck.

51685086Author Commented:
I tried to add the global32.bas but I obviously have the same functions in other modules. But, since the global32.bas file is clearly different than the one I have and you can't duplicate my issue, I think you're right. It will probably take me a few days to implement the new file correctly.

Thank you for your help vidru. The points are yours!
51685086Author Commented:
I tries the sample app and it worked great. I moved the code intact to my app and it didn't work. I finally figured out the problem. I use a control called OT/X for docking forms. Apparently, even deactivated, it still interferes with Crystal. I removed the control from the MDI parent and everything is fine.

Thank you for the effort.
Glad you got it worked out.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now