EXCEL 翻译解释一下这个 VBA 程序
来源:百度知道 编辑:UC知道 时间:2024/09/21 06:22:11
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Private Sub CommandButton2_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Private Sub CommandButton3_Click()
UserForm2.Show
End Sub
Private Sub CommandButton4_Click()
End Sub
Private Sub 打印page01到page09_Click()
Sheets("报告").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("page01").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("page02").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("page03").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("
私人小组CommandButton1_Click ( )
ActiveWindow.SelectedSheets.PrintOut副本: = 1 ,整理: =真
ActiveWindow.SelectedSheets.PrintOut副本: = 1 ,整理: =真
结束小组
私人小组CommandButton2_Click ( )
ActiveWindow.SelectedSheets.PrintOut副本: = 1 ,整理: =真
结束小组
私人小组CommandButton3_Click ( )
UserForm2.Show
结束小组
私人小组CommandButton4_Click ( )
结束小组
私人小组打印page01到page09_Click ( )
表( “报告” ) 。选择
ActiveWindow.SelectedSheets.PrintOut副本: = 1 ,整理: =真
表( “ page01 ” ) 。选择
ActiveWindow.SelectedSheets.PrintOut副本: = 1 ,整理: =真
表( “ page02 ” ) 。选择
ActiveWindow.SelectedSheets.PrintOut副本: = 1 ,整理: =真
表( “ page03 ” ) 。选择
ActiveWindow.SelectedSheets.PrintOut副本: = 1 ,整理: =真
表( “ page04 ” ) 。选择
ActiveWindow.SelectedSheets.PrintOut副本: = 1 ,整理: =真
表( “ page05 ” ) 。选择
ActiveWindow.SelectedSheets.PrintOut副本: = 1 ,整理: =真
表( “ page06 ” ) 。选