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

Personne ?