[已解决]求助关于锁定工作表打印按钮的问题！！！

zhqsl

Book1.zip (9.3 KB, 下载次数: 11)

2013-8-11 22:03 上传

点击文件名下载附件
请高手老师们指教，谢谢

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-8-11 22:26

1. Private Sub CommandButton1_Click()
   
2. Application.EnableEvents = False  '屏蔽事件
   
3.     ActiveSheet.PageSetup.PrintArea = "$a$1:$e$16"
   
4.     Sheet1.PrintOut
   
5.     Application.EnableEvents = True
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

我心飞翔410

1. Private Sub CommandButton1_Click()
   
2. Application.EnableEvents = False  '屏蔽事件
   
3.     ActiveSheet.PageSetup.PrintArea = "$a$1:$e$16"
   
4.     Sheet1.PrintOut
   
5.     Application.EnableEvents = True
   
6. End Sub
   

复制代码

zhqsl

我心飞翔410 发表于 2013-8-11 22:26

谢谢我心飞翔410老师的指点。

我心飞翔410

zhqsl 发表于 2013-8-11 22:32
谢谢我心飞翔410老师的指点。

晕 我不是老师 我也是学者

zhqsl

我心飞翔410 发表于 2013-8-11 22:39
晕 我不是老师 我也是学者

三人行必有我师，这个问题你懂，你就是老师。不要客气。