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

jave000

使用Ctrl单击Sheet可以多重打印，但如果忘了取消多选，总会不小心多重编辑，内容面目全非。请问如何使用代码来定义各个Sheet，并随意选择进行打印？按照每个Sheet的默认打印纸张和配置，如果还能把配置内容写进代码，那就更好了。
我有多个表格，各不相同，其中需要打印的Sheet也是相对固定的，所以每个表格都有一套自己的定义。但我会默认把不需要打印的Sheet放在最后。
我在论坛没搜到这个功能，感谢




最终结果如下，提供给有同样需求的人，感谢准提部林和lele6809的无私帮助，上面是消除所有公式的按钮，下面是定制打印的按钮：

Sub ClearFormulas()
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
End Sub
Sub DesignPrint()
    Sheets(Array("Cover", "MTO")).PrintOut
    ActiveSheet.Select
End Sub

jave000

比如这个表格，我需要固定只打印Cover和MTO，虽然我把这俩放在最前面，但查看VBA却是Sheet2和Sheet4，不是连续的。

jave000

经过昨天学习，代码已经找到好几种，但结果都是两个sheet单独打印，不能一起。就算我把打印机设置成appending to exsiting pdf也不合适，因为页码会不对。现在就差这一个难题了

jave000

Sub DesignPrint()
For i = 1 To 2
    Sheets(i).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Power PDF"
Next
End Sub


Sub StandardPrint()
    Sheets("Cover").PrintOut
    Sheets("MTO").PrintOut
End Sub


当前代码如上两种，两个sheet版式不同，cover是sheet1为首页单张，MTO是sheet2为正文三张，打印时是分开打印的，导致正文第一页页数为1-3，而不是2-4

准提部林

Sheets(array("Cover","MTO")).PrintOut
ActiveSheet.Select  '打印後, 單選工作表, 取消多選

打印順序, 以工作表放置順序為準, 與array內順序無關~~

jave000

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

十分感谢

Sub DesignPrint()
    Sheets(array("Cover","MTO").PrintOut
    ActiveSheet.Select
End Sub

写成如上，报错如下：

compile error：syntax error

lele6809

页面设置-起始页码 设为自动，不论你怎么选，都是顺序编码的

jave000

Sub DesignPrint()
    Sheets("Cover", "MTO").PrintOut
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Power PDF"
End Sub
报错如下：
conmile error: wrong number of arguments or invalid property assignment.

准提部林

jave000 发表于 2022-1-29 10:38
十分感谢

Sub DesignPrint()

仔細看...右少一個括號.....
Sheets(array("Cover","MTO")).PrintOut

jave000

jave000 发表于 2022-1-29 10:38
十分感谢

Sub DesignPrint()

很抱歉，十分感谢，是我少加了一个括号，目前运行可以了，我加上了后面的配置代码，目前可行，您的一个单词帮助了我很多，我百度了两天都没查到这个句式。非常非常感谢
请问怎么在打印后用代码解除sheet多选状态？