Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Preview not displaying when there IS data
Message
De
18/05/2007 14:19:52
 
 
À
18/05/2007 11:18:57
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Vista
Divers
Thread ID:
01226683
Message ID:
01226896
Vues:
23
lcWindStandard = WEXIST('standard')

IF lcWindStandard
      HIDE WINDOW standard
ENDIF

LOCAL oPreviewForm
oPreviewForm = createOBJECT('PreviewForm')
REPORT FORM test TO PRINTER PROMPT WINDOW PREVIEWFORM PREVIEW
oPreviewForm.Release
IF lcWindStandard
      SHOW WINDOW standard
ENDIF
RETURN

DEFINE CLASS previewform AS form

      Height = 500
      Width = 700
      Desktop = .F.
      ShowWindow = 1
      ScrollBars = 3
      DoCreate = .T.
      AutoCenter = .T.
      BorderStyle = 1
      Caption = "Print Preview Window"
      ControlBox = .F.
      Closable = .F.
      MinButton = .F.
      MaxButton = .T.
      Movable = .F.
      WindowType = 0
      WindowState = 1
      AlwaysOnTop = .F.
      onkeyctrlf10 = "''"
      Name = "previewform"

      PROCEDURE QueryUnload

            lcoldctrlf10setting = THISFORM.onkeyctrlf10
            IF !EMPTY(lcoldctrlf10setting)
                  ON KEY LABEL CTRL+F10 &lcoldctrlf10setting
            ENDIF
      ENDPROC

      PROCEDURE Init
            DODEFAULT()
            THISFORM.onkeyctrlf10 = ON('KEY LABEL','CTRL+F10')
            ON KEY LABEL CTRL+F10
            THIS.SHOW()
            CLEAR TYPEAHEAD
      ENDPROC

      PROCEDURE Deactivate
            DODEFAULT()
            IF WEXIST('Report Designer')
                  MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Report Designer"
            ENDIF
            IF WEXIST('Print Preview')
                  MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Print Preview"
            ENDIF
            keyboard "{ctrl+f10}"
      ENDPROC

ENDDEFINE
>>>>>Morning All,
>>>>>
>>>>>In the past few days, the preview window for the reports is not displaying. There is a flash as the report toolbar appears and disappears, but the preview window never appears. Does anyone know what is causing this, and how do I fix it?
>>>>>
>>>>>Thanks
>>>>
>>>>Are you sure you do have DATA in the cursor that drives the report?
>>>
>>>I posted my question prematurely. I had added a IN WINDOW clause to the REPORT FORM line, but forgot to make the window visible. This prevented the report from be displayed and the report esitted immediately.
>>
>>Thanks. I didn't read the title of your post carefully, sorry :(
>
>no problem.
>
>DO you have any ideas on how to maximize the preview window without using the IN WINDOW clause?
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform