2025年4月22日 星期二
VBA 雙面列印指定範圍
今天測試掌握了雙面列印技巧，但無奈VBA無法直接雙面列印。
Sub 雙面列印指定範圍()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Sheets("工作表1") '替換為實際工作表名稱
Set ws2 = ThisWorkbook.Sheets("工作表2")
'設定A4紙張大小
With ws1.PageSetup
.PaperSize = xlPaperA4
.PrintArea = "A1:D20" '替換為實際列印範圍
End With
With ws2.PageSetup
.PaperSize = xlPaperA4
.PrintArea = "A1:F30" '替換為實際列印範圍
End With
'列印設定
With ActiveWorkbook
.PrintOut _
From:=1, _
To:=1, _
Copies:=1, _
Preview:=False, _
ActivePrinter:="", _
PrintToFile:=False, _
Collate:=True, _
PrToFileName:="", _
IgnorePrintAreas:=False
'手動翻面後列印第二面
If MsgBox("請手動翻面後按確定", vbOKCancel) = vbOK Then
.PrintOut _
From:=2, _
To:=2, _
Copies:=1, _
Preview:=False, _
ActivePrinter:="", _
PrintToFile:=False, _
Collate:=True, _
PrToFileName:="", _
IgnorePrintAreas:=False
End If
End With
End Sub
這個方案還要手動。
最後結論，轉換成PDF，批次雙面列印效率更好。
訂閱：
張貼留言 (Atom)
-
美國實質可支配所得 利率與黃金 消費者信心 利率PK DW PK FED紐約分行 上海貨櫃指數 BDI CRB 美國m 1 m2 s&p 美國 非農 美國 非農就業職務空缺率 美國股市 行事曆 fomc 會議紀要與開會時間 全球股市行事曆 全球股市 巴菲特指數 外...
-
寫給自己速查 垂直屬性：HorizontalAlignment 水平屬性：VerticalAlignment 置中：xlCenter 靠左靠右：XLLEFT、XLRIGHT Sheets("工作表1").Range("m2").Ve...
-
流程(IPO) ：Input、Process、Output 流程：一個流程，只要具備有輸入(INPUT)、處理(PROCESS)與輸出(OUTPUT)，即可稱為IPO，各流程IPO的掌握不論是在製造業、服務業應用，其實道理都是相同的，應用在程式設計上，更是如此，解析出各流程IP...
沒有留言:
張貼留言