Excel 宏 控件的问题!!求大神指点!!急急急求!!
excel工作簿如下图,有4个工作表想要实现的功能:1.利用宏实现表格打印,即选择相应复选框后,单击打印按钮,即可以实现相应表格打印;2.sheet1有好几页,如果选中需...
excel工作簿如下图,有4个工作表
想要实现的功能:
1.利用宏实现表格打印,即选择相应复选框后,单击打印按钮,即可以实现相应表格打印;
2.sheet1有好几页,如果选中需要打印该表格,要先打印1/3/5页,然后弹出含有“确定”按钮的对话框,提示“请依次放入sheet1的1、3、5页 确定”,单击对话框中“确定”按钮后可以继续打印sheet1的2、4、6页(目的是在没有双面打印功能的时候,进行手动双面打印)
请大神务必介绍一下如何添加对话框。跪拜! 展开
想要实现的功能:
1.利用宏实现表格打印,即选择相应复选框后,单击打印按钮,即可以实现相应表格打印;
2.sheet1有好几页,如果选中需要打印该表格,要先打印1/3/5页,然后弹出含有“确定”按钮的对话框,提示“请依次放入sheet1的1、3、5页 确定”,单击对话框中“确定”按钮后可以继续打印sheet1的2、4、6页(目的是在没有双面打印功能的时候,进行手动双面打印)
请大神务必介绍一下如何添加对话框。跪拜! 展开
2个回答
展开全部
1,
Sub 按钮3_单击()----自己设名称
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
2,
Sub 按钮4_单击()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate _
:=True
End Sub
上面 的from 1/3/5 to 1/3/5,要变成2/4/6,新建一个控件改一下即可。
Sub 按钮3_单击()----自己设名称
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
2,
Sub 按钮4_单击()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate _
:=True
End Sub
上面 的from 1/3/5 to 1/3/5,要变成2/4/6,新建一个控件改一下即可。
追问
大体方法有些看不懂,不知道怎么试,先自己学习一下,再请教大神。
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询