Delay then continue

[garydp]

I have a form that has 20 text boxes that are populated from a spreadsheet. The text boxes are populated with names of .pdf files. What I'm trying to do is print the contents of the text boxes. There needs to be a 5 second delay between each print. What I tried to do is use the application.wait to pause for 5 seconds and then loop through until each text box has been printed. After I have printer the contents of a text box I'm changing the back colour to green. The problem I have is when I try to print the first box goes green and then when all are complete the others go green. I can't get it to go green after every 5 second delay.

[:) Sixthsense :)]

In End stage reset all the check box color to default by way of looping

[garydp]

It's the text boxes that I want to change the colour of. I've run the code on its own using a loop and it works. Every five seconds the text boxes change colour. When I run the same code with the code to print the files it won't change the colour it waits until all are printed and changes them all at once

[:) Sixthsense :)]

Whether your code turning OFF the screen updating?

[garydp]

Tried that I removed all application.screenupdating and still doesn't work. I'm wondering if it's cause I'm printing that it's not doing it

[:) Sixthsense :)]

If possible, please share the code with us

[garydp]

The code im using to loop is as follows sorry trying to do this from my phone and not sure how to add code.

Do Until num = itemNum
       num1 = InStr(1, UCase(Me.Controls("TextBox" & num).Text), ".PDF")
       If num1 <> 0 Then
           flag = 1               
           strDir = folder
           strFile = Me.Controls("TextBox" & num).Text
                If Me.Controls("chBox" & num).Value = True Then
                    printThis = PrintThisDoc(0, strDir & "\" & strFile)
                    Application.Wait (Now + TimeValue("0:00:05"))
                    Me.Controls("TextBox" & num).BackColor = VBGreen
                Else
                    Me.Controls("TextBox" & num).BackColor = VBRed
                End if
       End If
num = num + 1
loop

within a module I have this code to print

Public Function PrintThisDoc(forname As Long, FileName As String)
On Error Resume Next
Dim X As Long
X = ShellExecute(forname, "Print", FileName, 0&, 0&, 3)
End Function

As I said all TextBoxes change colour after the code has completed not after every 5 second delay.

[garydp]

Anyone have any ideas why?

[romperstomper]

Does it help if you add:

DoEvents
Me.Repaint

after the line that changes the textbox colour?

[garydp]

Excellent thank you