Scusa il ritardo nella risposta, dopo il tuo codice che avvia la stampa prova a mettere

codice:
Open "C:\Comando.bat" For Output As #1
Print #1, "cd\"
Print #1, "copy c:\pippo.txt c:\cartella1\pippo.txt"
Close #1
X = Shell("C:\Comando.bat", 1)
temp = ""
Do While temp = ""
     sleep 100
     temp = Dir("c:\cartella1\pippo.txt")
Loop

oppure
codice:
on error resume next
open "nome file" for input as #1
Do While Err.Number > 0
    sleep 100
    Err.number = 0
    open "nome file" for input as #1
Loop
On error goto 0