Discussion :

[Invité]

Bonjour,

Dans le cas d'un développement d'un VBScript pour l'impression de rapport Crystal Report 8 (oui, il y a encore des gens qui travaillent avec), je rencontre le problème suivant : lorsque j'ouvre la fenêtre d'aperçu avant impression celle-ci rend immédiatement la main au VBScript qui se termine fermant ainsi la fenêtre.

Ma première idée a été la suivante : ajouter une MsgBox, mais on ne peut plus prendre la main sur la fenêtre

Deuxième idée: ajouter un Wscript.echo mais ce n'est pas une solution très "propre"

La solution que j'ai retenu, ce serait de mettre en pause le VBScript tant que la fenêtre d'aperçu existe. J'ai donc tenté quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim shAppWins
Dim a, nb
Dim bFind
Set shAppWins = CreateObject("Shell.Application").Windows
nb = shAppWins.count
bFind = false
For  a=0 To nb-1
   If shAppWins.item(a).locationName = "Visulisation RPT" Then
      bFind = true
      Exit For
   End If
Next
 
While shAppWins.item(a).locationName = "Visulisation RPT" And bFind = true
   Sleep(100) 'en l'absence de DoEvents en VBS
Wend

Le soucis est que la fenêtre n'est jamais trouvé, car elle n'existe pas dans la collection shAppWins alors qu'elle est bien affichée avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'...
Set oCRApp = CreateObject("Crystal.CRPE.Application")
Set oRep = oCRApp.OpenReport(strRPTPath & strRPTFile)
oRep.Preview "Visualisation RPT"
'...

Si quelqu'un à une idée ou mieux une solution, je suis preneur.

Merci.

[ced600]

mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
oRep.Preview "Visualisation RPT"

dans une boucle, est ce que cela pourrait marcher ?

[Invité]

Non, j'y avais aussi pensé mais cela réouvre à chaque fois la fenêtre et la rend inutilisable, en revanche attention aux épileptiques

[Invité]

Voici la solution que j'ai trouvée (inspirée du post http://developpez.net/forums/showthread.php?t=220699) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
' Boucle permettant d'interagir avec la fenêtre d'aperçu
Dim oWrap, hWnd
Set oWrap = CreateObject("DynamicWrapper") 'instancie l'objet API
oWrap.Register "USER32.DLL", "FindWindowA", "i=ss", "f=s", "r=h" 'handle de la fenêtre du script
Do
    WScript.Sleep 100
Loop While oWrap.FindWindowA(vbNullString, "Visualisation RPT")

Cette solution nécessite l'utilisation de la librarie dynwrap.dll (http://www.script-coding.info/dynwrap.html)