Print files in order as they are shown in a directory

[iamtheky]

Add some spaces, wrap some stuff in quotes.   Use consolewrite or msgbox to troubleshoot the command (unless -print-to is supposed to have the path smashed up against it, im just assuming not)

edit:  example to make sure my syntax wasnt all jacked

$selectedfolder="C:"
$sFile="test file.txt"
$SelectedPrinter = "\\Big Print"

$sPrinter = '"' & $SelectedPrinter & '"'

$sFullDir = '"' & $selectedfolder & '\' & $sFile & '"'

consolewrite("Run(@ScriptDir & '\SumatraPDF.exe -print-to '" & $sPrinter & ' ' & $sFullDir)

Edited September 17, 2014 by boththose

[mLipok]

Run(@ScriptDir & '\SumatraPDF.exe -print-to ' & $SelectedPrinter & ' "' & $selectedfolder & '\' & $aFileList[$i] & '"')

??

[jguinch]

You should also add quotes for the printer name :

Run(@ScriptDir & '\SumatraPDF.exe -print-to "' & $SelectedPrinter & '" "' & $selectedfolder & '\' & $aFileList[$i] & '"')

[antmar904]

Thank you all again, 

jguinch this worked

Run(@ScriptDir & '\SumatraPDF.exe -print-to "' & $SelectedPrinter & '" "' & $selectedfolder & '\' & $aFileList[$i] & '"')

However i am stil faced with the issue that the pdf's are not printing out in order as they are listed in the folder.

The script is listing the files correctly but not sending the pdf's in the correct order to the printer.

Directory structer is:

_B.pdf

A.pdf

B.pdf

Printer order is:

A.pdf

_B.pdf

B.pdf

Edited September 17, 2014 by antmar904

[jguinch]

Use RunWait instead of Run

[antmar904]

That work however the jobs are sent to the printer in order (as listed in the folder) but the printer prints the files in alphabetical order regardless of what the printer queue says.

Is "RunWait" suppose to wait until the first job is finished then send the next file to the printer?

If so, that is not working.

Ok,

Here is the ConsoleWrite output:

C:StuffScriptsAutoITPrintDirPDFv1.2SumatraPDF.exe -print-to "HP LaserJet 1020" "C:TempTestA.pdf"C:StuffScriptsAutoITPrintDirPDFv1.2SumatraPDF.exe -print-to "HP LaserJet 1020" "C:TempTestB.pdf"C:StuffScriptsAutoITPrintDirPDFv1.2SumatraPDF.exe -print-to "HP LaserJet 1020" "C:TempTest_B.pdf"

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $btnBrowse
            $selectedfolder = FileSelectFolder("Select a directory to print", "C:")
            GUICtrlSetData($folder, $selectedfolder)
            $aFileList = _FileListToArray($selectedfolder, "*", $FLTA_FILES)
            GUICtrlSetData($List1, "")
            If IsArray($aFileList) Then
                For $i = 1 To $aFileList[0]
                    GUICtrlSetData($List1, $aFileList[$i])
                Next
            EndIf
        Case $btnPrint
            $SelectedPrinter = ControlGetText("PrintDirPDF", "", $Combo1)
            If IsArray($aFileList) Then
                For $i = 1 To $aFileList[0]
                    ConsoleWrite(@ScriptDir & '\SumatraPDF.exe -print-to "' & $SelectedPrinter & '" "' & $selectedfolder & '\' & $aFileList[$i] & '"')
                    ;ShellExecute($aFileList, '', '', 'print')
                Next
            EndIf
        Case $btnCancel
            Exit
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd

Edited September 18, 2014 by antmar904

[antmar904]

Anyone?

I am looking to have the pdf files print in order exactly how they are shown in the folder.

[BrewManNH]

The only way that could work would be to get the file list from Windows Explorer and not through the file functions in AutoIt. Windows won't give them to you in any set order, so you'd have to grab them from the window. Why exactly do  they need to be printed in a certain order? Does it really matter all that much what order they're printed in?

[antmar904]

Yes the order does matter because the user that will be using this will be printing out hundreds of tax returns by state and they all have to be printed out exactly the way they are shown in the folder.

I can get a list of the files as they are shown in the folder but when i send them to the printer, Windows automatically prints them in alphabetical order regardless of the file name.

Can you help me get the file list from the Windows Explorer window?

[iamtheky]

use WMI to poll the spool.

1) send the first file, $array[1]

2) poll the spool until $array[1] shows as the only item and printing

3) send the second file, $array[2]

4) poll the spool until $array[2] is the only item and it is printing

5) send the third file...

Edited September 24, 2014 by boththose

[antmar904]

boththose,

Example please?

[iamtheky]

expandcollapse popup

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PrintJob", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $Output = $Output & "Caption: " & $objItem.Caption & @CRLF
      $Output = $Output & "Color: " & $objItem.Color & @CRLF
      $Output = $Output & "DataType: " & $objItem.DataType & @CRLF
      $Output = $Output & "Description: " & $objItem.Description & @CRLF
      $Output = $Output & "Document: " & $objItem.Document & @CRLF
      $Output = $Output & "DriverName: " & $objItem.DriverName & @CRLF
      $Output = $Output & "ElapsedTime: " & WMIDateStringToDate($objItem.ElapsedTime) & @CRLF
      $Output = $Output & "HostPrintQueue: " & $objItem.HostPrintQueue & @CRLF
      $Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
      $Output = $Output & "JobId: " & $objItem.JobId & @CRLF
      $Output = $Output & "JobStatus: " & $objItem.JobStatus & @CRLF
      $Output = $Output & "Name: " & $objItem.Name & @CRLF
      $Output = $Output & "Notify: " & $objItem.Notify & @CRLF
      $Output = $Output & "Owner: " & $objItem.Owner & @CRLF
      $Output = $Output & "PagesPrinted: " & $objItem.PagesPrinted & @CRLF
      $Output = $Output & "PaperLength: " & $objItem.PaperLength & @CRLF
      $Output = $Output & "PaperSize: " & $objItem.PaperSize & @CRLF
      $Output = $Output & "PaperWidth: " & $objItem.PaperWidth & @CRLF
      $Output = $Output & "Parameters: " & $objItem.Parameters & @CRLF
      $Output = $Output & "PrintProcessor: " & $objItem.PrintProcessor & @CRLF
      $Output = $Output & "Priority: " & $objItem.Priority & @CRLF
      $Output = $Output & "Size: " & $objItem.Size & @CRLF
      $Output = $Output & "SizeHigh: " & $objItem.SizeHigh & @CRLF
      $Output = $Output & "StartTime: " & WMIDateStringToDate($objItem.StartTime) & @CRLF
      $Output = $Output & "Status: " & $objItem.Status & @CRLF
      $Output = $Output & "StatusMask: " & $objItem.StatusMask & @CRLF
      $Output = $Output & "TimeSubmitted: " & WMIDateStringToDate($objItem.TimeSubmitted) & @CRLF
      $Output = $Output & "TotalPages: " & $objItem.TotalPages & @CRLF
      $Output = $Output & "UntilTime: " & WMIDateStringToDate($objItem.UntilTime) & @CRLF
      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_PrintJob" )
Endif

Func WMIDateStringToDate($dtmDate)
Return (StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2) & " on: " & StringMid($dtmDate, 5, 2) & "/" & StringMid($dtmDate, 7, 2) & "/" & StringMid($dtmDate, 1, 4))
EndFunc ;==>WMIDateStringToDate