请各老师帮解决自动选择打印机问题

各位老师,下面有三台打印机.我有一个工作薄内有三个工作表:Sheet1,Sheet2,Sheet3,
我想打印Sheet1工作表时,自动选择"Canon MF4100 Series UFRII LT"  打印机
我想打印Sheet2工作表时,自动选择"EPSON Stylus Photo R290 Series"  打印机
我想打印Sheet3工作表时,自动选择"EPSON Stylus CX9300F Series"  打印机

下面的代码是6688老师提供的但是出现以下错误,请老师帮忙看看:

运时错误'1004' :
方法'Activepvinter'作用于对象'_Application'时失败


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim ay(1 To 3) As String
ay(1) = "Canon MF4100 Series UFRII LT"
ay(2) = "EPSON Stylus Photo R290 Series"
ay(3) = "EPSON Stylus CX9300F Series"
Select Case ActiveSheet.Index
    Case Is = 1
    Application.ActivePrinter = ay(1)
    Case Is = 2
    Application.ActivePrinter = ay(2)
        Case Is = 3
    Application.ActivePrinter = ay(3)
End Select
MsgBox Application.ActivePrinter
End Sub

在注册表里看下这些打印机序号是多少先吧！然后在后面加上《 在 Ne00:》就可以了，不过不能输错打印机序号的。
查找打印机序号的方法：运行处输入REGEDIT回车，依次打开 HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices

多谢593531183老师,两年前的贴子被你解决了!