以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]调用excel预览界面后 怎样使该界面的“打印”按钮不可用呢？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46027)
--  作者：弘安公司
--  发布时间：2014/2/15 19:53:00
--  [求助]调用excel预览界面后 怎样使该界面的“打印”按钮不可用呢？

请教各位大侠：调用excel预览界面后  怎样使该界面的“打印”按钮不可用呢？也就是使excel的预览界面仅预览，但不可打印？

[此贴子已经被作者于2014-2-15 20:12:38编辑过]
--  作者：弘安公司
--  发布时间：2014/2/15 19:54:00
--  

要用vba吗？

 
--  作者：有点甜
--  发布时间：2014/2/15 20:37:00
--  
 查了下资料，多vba不熟，只做到不允许打印和打印预览这个功能。

全局代码
Public Sub Workbook_BeforePrint(ByRef Cancel As Boolean)
    msgbox("不能打印")
    cancel = True
End Sub

调用代码
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
addhandler Wb.BeforePrint, addressof Workbook_BeforePrint
\'Ws.PrintPreview()
\'App.Quit
[此贴子已经被作者于2014-2-15 20:39:13编辑过]
--  作者：弘安公司
--  发布时间：2014/2/15 20:40:00
--  
太谢谢了 ！！  多谢多谢！！
--  作者：y2287958
--  发布时间：2014/2/15 20:48:00
--  
http://www.foxtable.com/help/topics/1892.htm
--  作者：弘安公司
--  发布时间：2014/2/15 21:00:00
--  
谢谢！ 我试试