IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Lancer une impression automatiquement


Sujet :

VBScript

  1. #1
    Membre confirmé
    Inscrit en
    Janvier 2007
    Messages
    153
    Détails du profil
    Informations forums :
    Inscription : Janvier 2007
    Messages : 153
    Par défaut Lancer une impression automatiquement
    Bonjour,

    Voilà, j'ai un programme qui demande à temps régulier d'ouvrir un répertoire pour lancer une impression d'un document PDF.

    Le fichier à imprimer est toujours le dernier créé.

    L'idée est de trouver une commande qui:

    1 trouve le fichier le plus récent en création dans le répertoire "R"
    2 imprime ce dernier fichier trouvé

    Le tout en un simple double-clic

    Quelqu'un a t-il une idée?

    j'ai pensé à un .bat sous dos mais je ne sais pas trop m'y prendre...;





    merci de votre concours!!!

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 420
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 420
    Par défaut
    j'ai un programme qui demande à temps régulier ....
    Si tu as déjà ce programme, pourquoi ne pas le laisser faire son boulot ?

    Mais si tu veux un programme (ou un bout de code) c'est une autre chose.
    Une manière plus simple est de poser le problème dans le forum VBScript par exemple.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Membre émérite Avatar de gretch
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2006
    Messages
    1 165
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2006
    Messages : 1 165
    Par défaut

    solution non testée mais cela devrait donner une bonne piste.
    trouver fichier récent : trouvé dans la FAQ developpez...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    for /f "tokens=4* delims= " %%i in ('dir /o:d "C:\monRep\*.txt" ^| findstr /i /c:".txt"') do set VrFchRcnt=%%i %%j echo %VrFchRcnt%
    imprimer le fichier trouver : dans la faq aussi !
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    print /d:nomImprimante tondoc.pdf
    ps : un simple copier coller des 2 questions dans google aurait certainement abouti !

  4. #4
    Membre confirmé
    Inscrit en
    Janvier 2007
    Messages
    153
    Détails du profil
    Informations forums :
    Inscription : Janvier 2007
    Messages : 153
    Par défaut
    Citation Envoyé par l_autodidacte Voir le message
    Si tu as déjà ce programme, pourquoi ne pas le laisser faire son boulot ?

    Mais si tu veux un programme (ou un bout de code) c'est une autre chose.
    Une manière plus simple est de poser le problème dans le forum VBScript par exemple.


    Non, non.. le programme effectue une tâche, génère un dossier. logiquement on s'attend à avoir un bouton "imprimer" qui lance l'impression du dossier en cours. Sauf que:
    1 On sort de la fenêtre active
    2 On lance un nouveau module
    3 On insère le N° du dossier à imprimer
    4 On exécute la tâche
    5 On indique à quel endroit doit se générer le fichier pdf
    6 On valide
    7 On ouvre le répertoire en question
    8 On sélectionne le fichier en question (le plus récent)
    9 On ouvre le fichier
    10 On lance l'impression!!!!


  5. #5
    Membre confirmé
    Inscrit en
    Janvier 2007
    Messages
    153
    Détails du profil
    Informations forums :
    Inscription : Janvier 2007
    Messages : 153
    Par défaut
    Citation Envoyé par gretch Voir le message

    solution non testée mais cela devrait donner une bonne piste.
    trouver fichier récent : trouvé dans la FAQ developpez...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    for /f "tokens=4* delims= " %%i in ('dir /o:d "C:\monRep\*.txt" ^| findstr /i /c:".txt"') do set VrFchRcnt=%%i %%j echo %VrFchRcnt%
    imprimer le fichier trouver : dans la faq aussi !
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    print /d:nomImprimante tondoc.pdf
    ps : un simple copier coller des 2 questions dans google aurait certainement abouti !
    Merci Gretch,

    je vais vois ça de plus près....


  6. #6
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 420
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 420
    Par défaut
    Salut;
    Il y a cette possibilité en enregistrant le code suivant dans un fichier .vbs :
    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
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    Option Explicit
     
    Dim objShell, objFolder, colItems, objItem, fso, strIn, J, MonFich, tb(100), n, Fich, I
     
     strIn = InputBox("Chemin du dossier à explorer : ","Chemin à explorer","C:\Tmp")
    If strIn = "" Then Wscript.Quit(0)
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set objShell = CreateObject("Shell.Application")  
      Set objFolder = objShell.Namespace(strIn) 
      Set colItems = objFolder.Items
      n = colItems.Count ': MsgBox n
      If Right(strIn,1)<> "\" Then strIn = strIn + "\"
       Dim K, L, S : S = ""
       L = 0
       For K = 0 to n-1
         If Ucase(Right(colItems.Item(K),4))=".PDF"  Then 
    		Tb(L) = colItems.Item(K)
    		'Msgbox (L) & " : " & tb(L)
    		L = L +1
    	 End If
       Next
       I = 0
       For J = 0 To L - 2
          IF fso.GetFile(strIn & Tb(J)).DateCreated > fso.GetFile(strIn & Tb(J+1)).DateCreated Then
    	     MonFich = tb(J) 
    	  Else : MonFich = tb(J+1)
    	  End If 
    	  I = I + 1
    	'  S = S + MonFich & "  ===>  " & Cstr(I) + Vbcrlf
       Next
      ' MsgBox S
      ' Set Fich = fso.GetFile(strIn & MonFich)
      ' MsgBox Fich  
       colItems.Item(I-1).InvokeVerbEx("Print")
    Si le chemin du dossier contenant les fichiers à imprimer est connu, on peut remplacer la ligne
    strIn = InputBox("Chemin du dossier à explorer : ","Chemin à explorer","C:\Tmp") par
    strIn = "Ton chemin pour le dossier".
    L'impression démarre automatiquement si l'imprimante est connectée et est sous tension.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  7. #7
    Membre confirmé
    Inscrit en
    Janvier 2007
    Messages
    153
    Détails du profil
    Informations forums :
    Inscription : Janvier 2007
    Messages : 153
    Par défaut
    Merci l'autodidacte,

    Je teste:::


Discussions similaires

  1. Lancer une impression automatiquement
    Par gentoo dans le forum Windows XP
    Réponses: 5
    Dernier message: 10/11/2011, 19h49
  2. Réponses: 1
    Dernier message: 13/12/2006, 09h04
  3. Comment lancer une impression ?
    Par tonelli dans le forum Mandriva / Mageia
    Réponses: 2
    Dernier message: 27/10/2006, 21h50
  4. Lancer une impression
    Par aude_1603 dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 13/02/2006, 14h58
  5. [debutant] lancer une impression d'un pdf en VC++
    Par seb-astien dans le forum MFC
    Réponses: 2
    Dernier message: 06/06/2005, 15h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo