[VBS] Afficher requete avec DATASET

Afficher requete avec DATASET [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 29-09-2004 à 09:26:42    

Bonjour,
J'espère que vous passé tous de bonne journée...
Voila j'utilise un programme nommé Dataset (style Acccess) pour faire mes requete attaquand ma base de donnée... J'ai la possibilité de faire des bouton appelant des VBS...
 
Celui ci ouvre mon projet lance la requete et imprime directement...
 
*******************************
 
' ****** Démarrage du travail  
 
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
 
*************************************
 
J'aimerai faire un autre script qui a la palce d'imprimer affiche juste le resultat à l'écran... C a doit pas être super compliqué mais je trouve pas....
Si quelqu'un connait le programme...
Bonne fin de journée  ;)

Reply

Marsh Posté le 29-09-2004 à 09:26:42   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed