If Taeller = 500 And Web.readyState <> READYSTATE_COMPLETE Then Exit Function End If
Web.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER While Web.readyState <> READYSTATE_COMPLETE And Taeller < 500 DoEvents: Sleep (20) Taeller = Taeller + 1 Wend
If Taeller = 500 And Web.readyState <> READYSTATE_COMPLETE Then Exit Function End If
Så har i den også
/Peik
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.