Jump to content

Print all tif files in a folder with adobe pdf printer


Recommended Posts

I have created a test folder with two files with .tif extension (I have hundreds of .tif files, these two were just for testing the code).

I want to convert these .tif files to .pdf files.

I have set adobe acrobat as my default printer.

I have written the following code

#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.6.1
    Author:         myName

    Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

Global $hSearch = FileFindFirstFile("*.tif"), $sFile, $sFile1
If $hSearch = -1 Then Exit MsgBox(0, "Error", "No PDF files were found in the current directory.")
While 1
    $sFile = FileFindNextFile($hSearch)
    $sFile1 = StringTrimRight($sFile, 3) & "pdf"
    If @error Then Exit
    ShellExecute($sFile)
    WinWaitActive($sFile & " - Windows Picture and Fax Viewer", "")
    Send("^p")
    WinWaitActive("Photo Printing Wizard", "")
    Send("!n")
    WinWaitActive("Photo Printing Wizard", "")
    Send("!n")
    WinWaitActive("Photo Printing Wizard", "")
    Send("!n")
    WinWaitActive("Photo Printing Wizard", "")
    Send("!n")
    WinWaitActive("Photo Printing Wizard", "")
    ControlSend("Save PDF File As","","[CLASS:Edit; Instance:1]",@ScriptDir & "\" & StringTrimRight($sFile, 3) & "pdf")
    ControlClick("Save PDF File As", "", "[CLASS:Button; INSTANCE:2]")
    WinActivate($sFile1 & " - Adobe Acrobat Pro", "")
    WinWaitActive($sFile1 & " - Adobe Acrobat Pro", "")
    Send("^q")
    WinWaitActive("Photo Printing Wizard", "")
    ControlClick("Photo Printing Wizard", "", "[CLASS:Button; INSTANCE:8]")
    WinActivate($sFile & " - Windows Picture and Fax Viewer", "")
    WinClose($sFile & " - Windows Picture and Fax Viewer", "")

WEnd

The code executes properly and the first pdf is saved. Then the second tif file is opened but the code execution pauses when the window "save pdf file as" activates.

Where did I go wrong,,

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...