任意选择单个或多个Sheet打印

jave000 · 发表于 2022-1-29 10:49

lele6809 发表于 2022-1-29 10:41
页面设置-起始页码设为自动，不论你怎么选，都是顺序编码的

感谢指出，我应该是默认设置自动的

jave000 · 发表于 2022-1-29 10:50

本帖最后由 jave000 于 2022-1-29 10:58 编辑

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Power PDF"

比较奇怪的是，copies:=1应该是只打一份吧，结果给我打了两份，我又不能输入0，只能删掉这句了
再次尝试，删了也还是打两遍，我还是把前缀也删了，只保留打印机设置
再次尝试，保留打印机设置能运行，但运行后也报错，干脆也删了，使用原来的ActiveSheet.Select

jave000 · 发表于 2022-1-29 10:51

准提部林发表于 2022-1-29 10:21
Sheets(array("Cover","MTO")).PrintOut
ActiveSheet.Select '打印後, 單選工作表, 取消多選

另外一个问题就是使用这个array代码后，表格会自动把Cover和MTO书签选中，这和我使用ctrl点击的后果一样了，为了防止误编辑，请问如何加代码在打印后消除sheet多选状态？

jave000 · 发表于 2022-1-29 11:13

是我擅自加的代码会多选，侠圣的代码不会，那就没问题了

jave000 · 发表于 2023-3-30 14:09

准提部林发表于 2022-1-29 10:46
仔細看...右少一個括號.....
Sheets(array("Cover","MTO")).PrintOut

请问为何将sheet1的具体名称改为sheet1，无论带不带引号，都无法运行了

准提部林 · 发表于 2023-3-30 15:23

jave000 发表于 2023-3-30 14:09
请问为何将sheet1的具体名称改为sheet1，无论带不带引号，都无法运行了

无法运行...是發生錯誤? 還是無法執行打印???
array("","")...工作表名稱是文本, 必須加雙引號~~
再改其它名稱試試

jave000 · 发表于 2023-3-30 15:32

准提部林发表于 2023-3-30 15:23
无法运行...是發生錯誤? 還是無法執行打印???
array("","")...工作表名稱是文本, 必須加雙引號~~
再改 ...

意思array里只能套用sheet的自定义name，不能单纯套sheet1，2，3，4，5……等？后者我指的是表格默认的sheet名称。

准提部林 · 发表于 2023-3-30 16:39

jave000 发表于 2023-3-30 15:32
意思array里只能套用sheet的自定义name，不能单纯套sheet1，2，3，4，5……等？后者我指的是表格默认的sh ...

只能用工作表底下標籤的表名, 不可用屬性名稱,
Sheet1 的表名為 "工作表1", 就用後者~~

准提部林 · 发表于 2023-3-30 16:41

jave000 发表于 2023-3-30 15:32
意思array里只能套用sheet的自定义name，不能单纯套sheet1，2，3，4，5……等？后者我指的是表格默认的sh ...

不然就用
Sheets(Array(Sheet1.Name, Sheet2.Name)).Select

jave000 · 发表于 2023-3-30 17:23

准提部林发表于 2023-3-30 16:41
不然就用
Sheets(Array(Sheet1.Name, Sheet2.Name)).Select

原来要加".name"后缀，长知识了，感谢

		自动登录	找回密码
密码			免费注册

[已解决] 任意选择单个或多个Sheet打印