打印输出代码，想要添加打印预览命令按钮

招财伟

打印按钮代码如下：

Sub 打印(n)
Application.Visible = False
For i = 1 To n
   For Each sh In Sheets
    sh.PrintOut From:=i, To:=i, Copies:=1, Collate _
        :=True
   Next
Next
Application.Visible = True
End Sub           

大虾啊，添加个打印预览按钮怎么改呢

hwc2ycy

1. Sub 打印预览(n)
   
2.     For i = 1 To n
   
3.         For Each sh In Sheets
   
4.             sh.PrintPreview
   
5.         Next
   
6.     Next
   
7. End Sub

复制代码

BAIXINGR

你录制个宏不就行了