Advertisement
muc-izhnet

printall.cmd

May 26th, 2016
370
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. @echo off
  2. rem Froz 25.03.2016
  3. set IND=D:\scan_inbox
  4. set OUTD=D:\1
  5. set PRNT="Xerox WorkCentre PE220 Series"
  6. set PDFR=C:\Program Files\Adobe\Reader 11.0\Reader
  7. set PDFE=AcroRd32.exe
  8. for %%i in ("%IND%\*.*") do call :go "%%i"
  9. goto:eof
  10.  
  11. rem -=Subroutines=-
  12. :go
  13. set errorlevel=
  14. set WORD=start "" /wait /min winword.exe %1 /q /n /mFilePrintDefault /mFileExit
  15. set PIC=start "" /wait /min rundll32 %windir%\system32\shimgvw.dll,ImageView_PrintTo %1 %PRNT%
  16. if /I %~x1==.pdf (
  17.   start "" /min "%PDFR%\%PDFE%" /n /s /o /h /t %1 %PRNT%
  18.   ping 127.0.0.1 -n 10 >nul
  19.   start "" /min taskkill /f /im %PDFE%
  20.   )
  21. if /I %~x1==.txt start "" /wait /min notepad.exe /p %1
  22. if /I %~x1==.doc %WORD%
  23. if /I %~x1==.docx %WORD%
  24. if /I %~x1==.rtf %WORD%
  25. if /I %~x1==.rtf %WORD%
  26. if /I %~x1==.jpg %PIC%
  27. if /I %~x1==.jpeg %PIC%
  28. if /I %~x1==.tif %PIC%
  29. if /I %~x1==.tiff %PIC%
  30. if /I %~x1==.png %PIC%
  31. if /I %~x1==.gif %PIC%
  32. if errorlevel 0 move %1 "%OUTD%"
  33. exit/b
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement