Imprimer un fichier

EXECUTE "cmd.exe /c Notepad.exe /p "+CHR$(34)+"Z:\Test.txt"+CHR$(34)
TERMINATE

EXECUTE "Cmd.exe /c start /min Notepad.exe /p "+CHR$(34)+"Z:\Test.txt"+CHR$(34)
TERMINATE

' Check the command line arguments
If WScript.Arguments.Unnamed.Count <> 1 Then Syntax
If WScript.Arguments.Named.Count    > 0 Then Syntax

' Check if a valid file was specified
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
strFile = WScript.Arguments(0)
If Not objFSO.FileExists( strFile ) Then Syntax
strFolder = objFSO.GetParentFolderName( strFile )
Set objFSO = Nothing

' Open the Shell Folders object
Set objShell  = CreateObject( "Shell.Application" )

' Create an object for the specified file's parent folder
Set objFolder = objShell.Namespace( strFolder )

' Create a collection for the folder's contents
Set colFiles  = objFolder.Items

' Loop through the collection to find the file specified
If colFiles.Count > 0 Then
 For Each objFile In colFiles
 If LCase( objFile.Path ) = LCase( strFile ) Then
 ' Print the file with its associated print command
 objFile.InvokeVerbEx( "Print" )
 End If
 Next
End If


Sub Syntax
 Dim strMsg
 strMsg = "Print.vbs,  Version 1.00" _
       & vbCrLf _
       & "Print a file - ANY file - on the default printer" _
       & vbCrLf & vbCrLf _
       & "Usage:  " & UCase( WScript.ScriptName ) & "  filename"  _
       & vbCrLf & vbCrLf _
       & "Where:  ""filename""  specifies the file to be printed (no wildcards)" _
       & vbCrLf & vbCrLf _
       & "Notes:  This script will only work if a print command for the"   _
       & vbCrLf _
       & "        file's associated file type is defined in the registry." _
       & vbCrLf _
       & "        When the associated program is used to open and print"   _
       & vbCrLf _
       & "        the file, the program will not be closed automatically."          _
       & vbCrLf _
       & "        This script may conflict with my DefOpen.bat script."    _
       & vbCrLf & vbCrLf _
       & "Written by Rob van der Woude" _
       & vbCrLf _
       & "http://www.robvanderwoude.com"
 WScript.Echo strMsg
 WScript.Quit 1
End Sub

dim rep$,f$
rep$ = dir_current$ + chr$(92)
f$ = rep$ + "test.txt" : ' indiquer le fichier à imprimer
execute_wait rep$ + "print.vbs" + " " + f$

DIM f$
f$ = "Z:\test.txt": Lprint(f$)
END

SUB Lprint(f$)
  ' Impression de f$ sur l'imprimante implicite
  DIM_LOCAL pvbs$,q$,a$
  pvbs$ = "C:\TEMP\Print.vbs"
  q$ = CHR$(34)
  DATA "Vbscript"
  DATA "Set objFSO = CreateObject("+q$+"Scripting.FileSystemObject"+q$+")"
  DATA "strFile = WScript.Arguments(0)"
  DATA "strFolder = objFSO.GetParentFolderName( strFile )"
  DATA "Set objFSO = Nothing"
  DATA "Set objShell  = CreateObject( "+q$+"Shell.Application"+q$+" )"
  DATA "Set objFolder = objShell.Namespace( strFolder )"
  DATA "Set colFiles  = objFolder.Items"
  DATA "If colFiles.Count > 0 Then"
  DATA "For Each objFile In colFiles"
  DATA "If LCase( objFile.Path ) = LCase( strFile ) Then"
  DATA "objFile.InvokeVerbEx( "+q$+"Print"+q$+" )"
  DATA "End If"
  DATA "Next"
  DATA "End If"
  DATA "F"
  FILE_OPEN_WRITE 9,pvbs$
    RESTORE: READ a$: WHILE a$<>"Vbscript": READ a$: END_WHILE
    READ a$: WHILE a$<>"F": FILE_WRITELN 9,a$: READ a$: END_WHILE
  FILE_CLOSE 9
  EXECUTE_WAIT pvbs$+" "+f$
  FILE_DELETE pvbs$
END_SUB

EXECUTE_WAIT "Cmd.exe /c start /min Notepad.exe /p "+CHR$(34)+"Z:\Test.txt"+CHR$(34)