🚀 go-pugleaf

My problem : sometimes i need to print a excel report from within access.
I'am using some code to make a connection to the excel file, but whenever i
print, i can't close excel from within access.  When i don't print there is
no problem to do so.
Who can help me ?
PS : i'am using access 2.0 and win 3.11
Here is the code :
Sub PRINT_EXCEL_FILE()
    Dim varChannelNumber As Variant
    Dim intTaskID As Integer
    Dim varValue As Variant
    Dim intRet As Integer

    ' Start Excel
    intTaskID = Shell("c:\Msoffice\Excel\excel.exe", 2)

    ' Open a channel
    varChannelNumber = DDEInitiate("excel" & glrUIntFromInt(intTaskID),
"System")

    ' Open the spreadsheet
    DDEExecute varChannelNumber, "[Open(""e:\tepcc\bckup\posy.xls"")]"

    ' Close the channel
    DDETerminate varChannelNumber

    ' Open a channel to the spreadsheet
    varChannelNumber = DDEInitiate("excel" & glrUIntFromInt(intTaskID),
"posy.xls")

    ' print report
    DDEExecute varChannelNumber, "[Print(1,0)]"
    ' Clean up
    DDETerminate varChannelNumber
    intRet = DoEvents()

    ' Close Excel
    intRet = glrCloseApp(intTaskID)
End Sub
Thanks for your help,
marcel.sporck@ping.be