Excel隔頁列印

2009-03-05 6:30 am

利用excel列印時因為有很多頁
一頁印一張A4紙很浪費紙
所以想要一張A4紙印2頁
但是發現EXCEL按列印時卻無法連續隔頁列印
就是一次先印單數頁，然後再印雙數頁
我知道WORD是可以這樣印的，
但為何EXCEL不能這樣印呢？
請問要如何在EXCEL連續隔頁列印？
麻煩EXCEL達人不吝賜教！

更新1:

呃....太困難了有沒有簡單一點的？

回答 (5)

[匿名]

2009-03-05 1:41 pm

✔ 最佳答案

請服用

Sub ReversiblePrint()
Dim AP As Long
Dim SP As Long
Dim OP As Long
Dim EP As Long

With ActiveSheet
HP = .HPageBreaks.Count + 1
VP = .VPageBreaks.Count + 1
AP = HP * VP

SP = CLng(InputBox("請輸入你想開始列印的頁碼" & vbLf & "總頁數為 " & AP, , "1"))
OP = CLng(InputBox("請輸入結束列印的頁碼" & vbLf & "總頁數為 " & AP, , AP))

If MsgBox("開始頁碼為 " & SP & vbLf & "結束頁碼為 " & OP & vbLf & "如果要列印請按下確定" & vbLf & "如果不要列印請按取消", vbYesNo) = vbNo Then End

If SP > OP Or SP < 1 Or OP < 1 Or AP < 1 Then
MsgBox "輸入頁碼錯誤", vbCritical
End
End If

EP = CLng(SP) + 1

For SP = SP To AP Step 2
If SP > AP Or SP > OP Then Exit For
.PrintOut from:=SP, To:=SP
Next SP

If MsgBox("請更換為紙張背面" & vbLf & "如果要繼續列印請按下確定" & vbLf & "如果不要列印請按取消", vbYesNo) = vbNo Then End

For EP = EP To AP Step 2
If EP > AP Or EP > OP Then Exit For
.PrintOut from:=EP, To:=EP
Next EP

MsgBox "列印結束", vbInformation
End With

End Sub

參考: 自己多年的煎熬

👍 0 👎 0

ZDQPUXQQXHRP

2014-10-28 3:59 pm

到下面的網址看看吧

▶▶http://qaz331.pixnet.net/blog

👍 0 👎 0

OBWALJAIKZAB

2014-08-08 9:11 am

到下面的網址看看吧

▶▶http://*****

👍 0 👎 0

[匿名]

2014-07-24 2:54 am