[已解决]打印隐藏工作表问题

yyd0111606

sheet2 隐藏了   在sheet5（录入）

1. Private Sub CommandButton1_Click()
   
2.   If MsgBox("真的需要保存及打印吗？", 4, "打印确认") = 7 Then Exit Sub
   
3. 
   
4.     Sheet2.Select      
   
5. 
   
6.   Application.Dialogs(8).Show
   
7.    Sheets("录入").Select
   
8. End Sub
   
9. 
   

复制代码

插入打印按钮 打印sheet2隐藏表 请 问把 Sheet2.Select  改成什么代码：打印sheet2后隐藏

最佳答案

月排行榜 / 总排行榜

过江龙

2014-2-24 14:36

Sheet2打印后隐藏代码
Sheet2.Select

     Sheet2.PrintOut Copies:=1, Collate:=True

Sheet2.Visible = False

跳转到最佳答案楼层

苗凱

1. Private Sub CommandButton1_Click()
   
2.   If MsgBox("真的需要保存及打印吗？", 4, "打印确认") = 7 Then Exit Sub
   
3. 
   
4.     Sheet2.Select      
   
5. <span style="color: rgb(17, 17, 17); font-family: Tahoma, Helvetica, 'Microsoft Yahei', SimSun, sans-serif, Hei; background-color: rgb(243, 249, 246); "> Sheet2.PrintOut Copies:=1, Collate:=True</span>
   
6. 
   
7. <span style="color: rgb(17, 17, 17); font-family: Tahoma, Helvetica, 'Microsoft Yahei', SimSun, sans-serif, Hei; background-color: rgb(243, 249, 246); ">Sheet2.Visible = False</span>
   
8.   Application.Dialogs(8).Show
   
9.    
   
10.    Sheets("录入").Select
    
11. End Sub
    

复制代码

楼主试试看看

苗凱

用于MsgBox函数返回值的常量
常数          值       说明
vbOK          1        确定
vbCancel      2        取消
vbAbort       3        终止
vbRetry       4        重试
vbIgnore      5        忽略
vbYes         6        是
vbNo          7        否

过江龙

Sheet2打印后隐藏代码
Sheet2.Select

     Sheet2.PrintOut Copies:=1, Collate:=True

Sheet2.Visible = False