sendkeys fejl

Jeg har en db der kører ustabilt. Nogle gange virker nedenstående modul uden fejl, andre gange tager den access med sig ned. Er der nogen der kan se en oplagt fejl?

Option Compare Database
Option Explicit

Public Const cPrinter = "hp laserjet 4 plus"
' gammelt uaktuelt navn (jeg tør ikke ændre det)

Public Function PrintSpecial(strReportName As String, strPrinterName As String, strWhere As String) As Integer
On Error GoTo PrintSpecial_Error

    PrintSpecial = True
    DoEvents 'Print første side
    SendKeys "^p" 'start print-dialogboksen
    SendKeys "j" 'Vælger printeren JJW Standard SH
    SendKeys "%b" 'vis egenskaber for printeren
    SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{+}" ' roter side
    SendKeys "^{TAB}" ' at skifte faneblad
    SendKeys "{TAB}{TAB}{TAB}{TAB}" ' at bladre 4 frem
    SendKeys "k" ' Kasette 1
    SendKeys "{enter}" 'aflevere kommando med OK
    SendKeys "%s" 'Gå til feltet vedr. sider
    SendKeys "1" ' fra side 1
    SendKeys "{TAB}" ' skift til feltet til side
    SendKeys "1"  ' til side 1
    SendKeys "{ENTER}" ' OK
   
    DoEvents 'Skriv side 2 til 9999
    SendKeys "^p" 'start print-dialogboksen
    SendKeys "j" 'Vælger printeren JJW Standard SH
    SendKeys "%b" 'vis egenskaber for printeren
    SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{+}" ' roter side
    SendKeys "^{TAB}" ' at skifte faneblad
    SendKeys "{TAB}{TAB}{TAB}{TAB}" ' .at bladre 4 frem
    SendKeys "e" ' Elevatorkasette
    SendKeys "{enter}" 'aflevere kommando med OK
    SendKeys "%s" 'Gå til feltet vedr. sider
    SendKeys "2" ' fra side 2
    SendKeys "{TAB}" ' skift til feltet til side
    SendKeys "999" ' til side 999
    SendKeys "{ENTER}"
    DoEvents
    DoCmd.Close acReport, strReportName
   

     
PrintSpecial_Exit:
    Exit Function
PrintSpecial_Error:
    MsgBox Error$
    PrintSpecial = False
    Resume PrintSpecial_Exit
End Function