Bonjour,
Voila j'ai un script vbs qui quand on clique sur un bouton lance une requete et imprime son résultat....
------------------------------------------------------
Dim VisionApp 'As Object 'VisionApp
Dim VisionProject 'As Object 'VisionApp.Project
Dim VisionProjectItem 'As Object 'VisionProjectItem
Dim VisionExportInfosOutput 'As Object 'VisionProject.ExportOutputInfos
Dim VisionPrintInfos 'As Object 'VisionPrintInfos
Dim VisionExportHtmlInfos 'As Object 'VisionProject.ExportHtmlInfos
' ****** Initialisation
Set VisionApp = CreateObject("Vision.Application" )
CheckError()
Set VisionProject = VisionApp.GetProject
CheckError()
' ****** Ouverture du projet
VisionProject.Open ("G:\LPR\Ebis_menu\Requete.wfv" )
CheckError()
' Giving the Login...
VisionProject.SetLogin "AS400", "CAA", "caa"
CheckError()
' ***** Sortie de l'état sur l'imprimante
Set VisionProjectItem = VisionProject.Reports("Consommation moyenne" )
CheckError()
' *********************************************************************************************************
' ****** Initialisation de l'impression
'Dim VisionPrintInfos ' As Object
'Set VisionPrintInfos = VisionProject.PrintInfos()
'VisionPrintInfos.PrintDirect = True
'VisionPrintInfos.FromPage = 1
'VisionPrintInfos.ToPage = 1
'VisionPrintInfos.Copies = 1
'VisionPrintInfos.QuietMode = False
' ****** Impression
'VisionProject.d7Print VisionProjectItem, VisionPrintInfos
--------------------------------------------------------
Tout cela marche parfaitement mais j'ai besoin que depuis un autre bouton un script au lieu de lancer l'impression ouvre le projet et m'affiche le résultat à l'écran au lieu de l'imprimer directement....
Si quelque à une idée ca serait cool 
Bonne journée
