我想excel中表格中创建一个按钮，按钮效果是保存并打印工作表。该怎么做？

在模块中写入代码,并按上图为按钮指定宏

sub 打印并保存()

activesheetprint

ThisworkbookSave

end sub

不懂的请补充,

假设你想打印指定区域"$B$9:$D$15"
从控件工具箱中添加按钮到工作表，双击该按钮，编辑代码如下：
Private Sub CommandButton1_Click()
Range("B9:D15")Select
ActiveSheetPageSetupPrintArea = "$B$9:$D$15"
PrintOut
End Sub
然后点击“退出设计模式”，即可正常使用按钮。

1设置表2的列印范围,可直接通过excel的页面设置完成
2在表1中添加按钮,设置按钮的动作为新宏,宏内输入worksheets("表2")Printout
如果是要预览列印为worksheets("表2")PrintPreview
例:如果在表1中加的是圆角矩形1
Sub 圆角矩形1_Click()
Worksheets("Sheet2")PrintOut
'Worksheets("Sheet2")PrintPreview
End Sub

Private Sub CommandButton1_Click()
iPrint
End Sub
Public Sub iPrint()
Dim n As Integer
n = ApplicationInputBox("请输入打印的份数：", "我的打印", 1, Type:=1)
If n <= 0 Then MsgBox "份数要大于0", vbCritical: Exit Sub
ActiveSheetPrintOut copies:=n
End Sub

用SelectionPrintOut Copies:=1, Collate:=True语句。
主要是你只选定了奇数页和偶数页的相关单元格，而没有让该工作表激活，你打印时
ActiveSheetPageSetupPrintArea = "$A$1:$AG$18"

没有指定工作表，系统以为你要打的还是在你的“打印来源表”中ActiveSheet这句的意思是活动工作表，你的活动工作表是“打印来源表”，于是就打印了“打印来源表”中的 "$A$1:$AG$18"。要么，你先让奇数页或者偶数页激活，在
Range("奇数页！A1:AG18")Select前面加一句sheet("奇数页")select
打印语句结束后又激活“打印来源表”sheet("打印来源表")select
活动单元格、活动工作表，选择单元格，的概念要分清。

---