Print fra WSH

Hvis du smider infoen ned i en tekstfil kan den vel kopieres til printeren:

Set f2 = fso.GetFile(\"c:\\testfile.txt\")
f2.Copy (\"lpt1\")

Hvis ikke det virker vil du kunne printe gennem notepad (dette eksempel kræver at .txt filer er associeret til notepad):

CreateObject(\"Shell.Application\")_
    .Namespace(0)_
    .ParseName(\"c:\\testfile.txt\")_
    .InvokeVerb \"&Print\"

Ikke ligefrem to af de mest elegante løsninger men måske i mangel på bedre...

Tak, metode nummer et virkede bare perfekt ;-)

Her er en kopi af min rutine, hvis nogen kunne finde det interessant:

Function PrintString(strString, strTmpDir)
    \'Create FSO object
    Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
       
    \'Write to tmp file
    WScript.StdOut.WriteLine \" Creating tmp file...\"
    Set objPrnFile = objFSO.CreateTextFile(strTmpDir & \"its.prn\", True)
    objPrnFile.Write(strString)
    objPrnFile.Close
    Set objPrnFile = Nothing
       
    \'Copy file to printer
    WScript.StdOut.WriteLine \" Copying tmp file to printer...\"
    objFSO.CopyFile strTmpDir & \"its.prn\", \"LPT1\"
       
    \'Remove the tmp file
    WScript.StdOut.WriteLine \" Removing tmp file...\"
    objFSO.DeleteFile strTmpDir & \"its.prn\", True
       
    \'Destroy FSO object
    Set objFSO = Nothing
End Function