excel宏函数，如何给按钮添加打印功能

Question

如题，在excel表格中添加了一个打印按钮，
当所选择行数为奇数时则打印 奇数页！A1:AG18
当所选行为偶数页时则打印 偶数页！A1:AG18

如何使用宏函数，本人小白一个，请教了
Private Sub CommandButton1_Click()Dim numbernumber = B18
IF ((number MOD 2)=1)
THEN
Range("奇数页！A1:AG18").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$AG$18" PrintOutElse Range("偶数页！A1:AG18").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$AG$18" PrintOutEnd Sub
不对，主要也不懂，没有财富值赠送了，谢谢大侠赐教啦

Answer 1

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

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

Answer 2

range("a1:g20").printout

Answer 3

试试 Range("A1:AG18").PrintOut