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
參考: 自己多年的煎熬
2014-10-28 3:59 pm
到下面的網址看看吧

▶▶http://qaz331.pixnet.net/blog
2014-08-08 9:11 am
到下面的網址看看吧

▶▶http://*****
2014-07-24 2:54 am
到下面的網址看看吧

▶▶http://*****
2009-10-07 11:22 pm
http://it.notes.tw/2009/09/print-skill-all.html
這一篇裡有很多excel列印相關的資料,你可以找看看。


收錄日期: 2021-04-27 16:12:18
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20090304000016KK10967

檢視 Wayback Machine 備份