Office中国论坛/Access中国论坛

标题: 请高手修改一下这代码？ [打印本页]

作者: HENRYNG 时间: 2009-2-20 11:12
标题: 请高手修改一下这代码？
请高手修改一下这代码：
If MsgBox("此客户需要打印“送货单”吗？", vbQuestion + vbYesNo) = vbYes Then
Worksheets("SF5").Activate
Range("A2:K19").Select
ActiveSheet.PageSetup.PrintArea = "$A$1

K$19"
Selection.PrintOut
End If

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

作者: ACMAIN_CHM 时间: 2009-2-20 11:15

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

******************
* 一切皆有可能 *
******************
.
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 时间: 2009-2-20 11:21
代码里没有指定工作表

作者: HENRYNG 时间: 2009-2-20 11:25
Worksheets("SF5")中SF5是工作表的名称，请帮忙？

作者: 方漠 时间: 2009-2-20 21:51
TRY:
Sheets("SF5").Activate

Make sure the sheet name is SF5.

作者: pureshadow 时间: 2009-2-22 00:45
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 时间: 2009-2-23 12:33
多谢以上各位的帮助！！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)