本示例打印当前工作表,份数为2份。

ActiveSheet.PrintOut Copies:=2