Impression de documents

DIM f$
f$ = "C:\TEMP\Exemple.pdf"
PrintAny(f$)
END

SUB PrintAny(f$)
  ' Impression passante du fichier f$ (types différents à tester)
  ' (d'après: http://www.robvanderwoude.com/printfiles.php)
  ' Testé avec succès pour du .TXT et du .RTF (texte enrichi)
  DIM_LOCAL q$,a$,fbat$
  fbat$ = "Z:\Printany.bat": ' <=========== À AJUSTER ! (fichier temporaire) =====
  q$ = CHR$(34)
DATA "PrintAny"
DATA "@ECHO OFF"
DATA "SETLOCAL"
DATA "SET PrintCmd="
DATA "SET FileType="
DATA "SET Temp=%Temp:"+q$+"=%"
DATA "FOR /F "+q$+"tokens=1* delims=="+q$+" %%A IN ('ASSOC %~x1') DO ("
DATA " FOR /F "+q$+"tokens=1 delims=="+q$+" %%C IN ('FTYPE ^| FIND /I "+q$+"%%~B"+q$+"') DO ("
DATA "  CALL :GetPrintCommand %%~C"
DATA " )"
DATA ")"
DATA "IF NOT DEFINED PrintCmd GOTO NoAssoc"
DATA "CALL START /MIN "+q$+"PrintAny"+q$+" %PrintCmd%"
DATA "GOTO End"
DATA ":GetPrintCommand"
DATA "FOR /F "+q$+"tokens=3*"+q$+" %%D IN ('REG.EXE Query HKCR\%1\shell\print\command /ve 2^>NUL') DO SET PrintCmd=%%E"
DATA "IF NOT DEFINED PrintCmd GOTO:EOF"
DATA "SET PrintCmd=%PrintCmd:"+q$+"="+q$+"%"
DATA "SET PrintCmd=%PrintCmd:"+q$+q$+"="+q$+"%"
DATA "SET PrintCmd=%PrintCmd:\\=\%"
DATA "ECHO.%PrintCmd% | FINDSTR.EXE /R /C:"+q$+""+q$+"%%1"+q$+q$+" >NUL && SET PrintCmd=%PrintCmd:"+q$+"%1"+q$+"="+q$+"%%%~1"+q$+"%"
DATA "GOTO:EOF"
DATA ":NoAssoc"
DATA "CLS"
DATA ":End"
DATA "F"
  READ a$: WHILE a$<>"PrintAny": READ a$: END_WHILE
  FILE_OPEN_WRITE 9,fbat$
    READ a$: WHILE a$<>"F": FILE_WRITELN 9,a$: READ a$: END_WHILE
  FILE_CLOSE 9
  EXECUTE_WAIT fbat$+"|"+f$
  FILE_DELETE fbat$
END_SUB