请高手修改一下这代码？

HENRYNG

请高手修改一下这代码：
If MsgBox("此客户需要打印“送货单”吗？", vbQuestion + vbYesNo) = vbYes Then
Worksheets("SF5").Activate
Range("A2:K19").Select
ActiveSheet.PageSetup.PrintArea = "$A$1K$19"
Selection.PrintOut
End If

为啥不行，出现“下标越界”的提示？

ACMAIN_CHM

为什么一定要指明高手来帮你做呢？


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

pureshadow

代码里没有指定工作表

HENRYNG

Worksheets("SF5")中SF5是工作表的名称，请帮忙？

方漠

TRY:
Sheets("SF5").Activate

Make sure the sheet name is SF5.

pureshadow

If MsgBox("此客户需要打印“送货单”吗？", vbQuestion + vbYesNo) = vbYes Then
Sheets("SF5").PageSetup.PrintArea = "$A$1K$19"
Selection.PrintOut
End If
我测试过了，可以的，不过，如楼上所说，Make sure the sheet name is SF5。

HENRYNG

多谢以上各位的帮助！！！！