能否代码实现双面打印、从短边翻转页面？

sampsonpon

能否代码实现双面打印、从短边翻转页面？

LIUZHU

录制一个宏代码就可以了

sampsonpon

LIUZHU 发表于 2023-2-15 14:34
录制一个宏代码就可以了

这是我利用宏录制的代码
一二行代码是从长边翻转页面
三四行代码是从短边翻转页面
怎么都一样的？没任何区别啊



Sub 宏2()
'
' 宏2 宏
'

'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

stonelee2018

双面打印属于打印机的功能，vba只能写打印的，不能设置双面

sampsonpon

stonelee2018 发表于 2023-2-15 15:25
双面打印属于打印机的功能，vba只能写打印的，不能设置双面

嗯！那为什么设置好之后保存，然后下次打开又没了。

stonelee2018

sampsonpon 发表于 2023-2-15 15:28
嗯！那为什么设置好之后保存，然后下次打开又没了。

设置打印机就好了，默认双面打印，调用vba打印 出来的也是双面的