Lancer une impression automatiquement

Version imprimable

07/11/2011, 17h59
gentoo

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...;

:zoubi:

merci de votre concours!!!
07/11/2011, 19h07
l_autodidacte

Citation:

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.
08/11/2011, 16h33
gretch

:faq:
solution non testée mais cela devrait donner une bonne piste.
trouver fichier récent : trouvé dans la FAQ developpez...

Code:

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:

print /d:nomImprimante tondoc.pdf

ps : un simple copier coller des 2 questions dans google aurait certainement abouti !
09/11/2011, 11h25
gentoo

Citation:

Envoyé par l_autodidacte

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!!!!

:mur:
09/11/2011, 13h17
gentoo

Citation:

Envoyé par gretch

:faq:
solution non testée mais cela devrait donner une bonne piste.
trouver fichier récent : trouvé dans la FAQ developpez...

Code:

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:

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....

;)

Salut;
Il y a cette possibilité en enregistrant le code suivant dans un fichier .vbs :

Code:

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.

22/11/2011, 22h19
gentoo

Merci l'autodidacte,

Je teste:::

;)