請問 EXCEL 列印搭配 點陣式印表機

momo020608

各位大家好
請問
問題
1.因為EXCEL如果有"兩"或是"三"份文件(連續報表紙)
分別為 A 、B 、C 三個文件
A文件有7個頁面需要列印(最後一頁為奇數)
B文件有9個頁面需要列印(最後一頁為奇數)
C文件有10個頁面需要列印(最後一頁為偶數)

2.因為有時候人員忙碌，無法待在EPSON 690C點陣式印表機旁邊
a.通常人工導引第一個頁面後為正面後，其他順利的話 就會 印的整整齊齊， 不會四分五裂。
b.可是若要印第二份文件時，B文件就會接續最後一頁的奇數頁(人員稍不注意，印好後就要人工手動把這一整份分開成兩份紙本
A紙本可以順利排放整齊；B紙本的第一頁就會翻面了，需要人工手動方式重新排正。

--
請問有公式可以讓 文件(奇數頁)   >>>> 印出來後為 (產生新的頁面"偶數頁"，就是最後一頁是空白)
要讓B文件(奇數頁)的第一章封面可以穩穩的接續在後方>>>> 印出來後為 (產生新的頁面"偶數頁"，就是最後一頁是空白)>>再繼續印C文件(最後一頁為偶數，所以不產生新的頁面)




-
請問有這種公式嗎?
不然好幾份文件排序著列印，有好幾份文件都要重新翻面過!!

-
請問有什麼方法可以讓EPSON 690C點陣式印表機印出來的報表紙
可以自己排的非常整齊，不會亂七八糟呢?

ML089

回復 1# momo020608

奇數頁文件就強迫於文章後加入空白行，這樣每份文件都為偶數頁就能決解你的問題。

准提部林

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim xArea As Range
With ActiveSheet
　　　.PageSetup.PrintArea = ""  '重設列印範圍
　　　.ResetAllPageBreaks '重設分頁線
　　　If .HPageBreaks.Count Mod 2 = 0 Then '檢測頁數是否為奇數
　　　　　Set xArea = Range(.[A1], .UsedRange.Offset(1, 0))
　　　　　xArea.Name = "'" & .Name & "'!Print_Area" '設定列印範圍
　　　　　.HPageBreaks.Add before:=Rows(xArea.Rows.Count + 1) '加入分頁線
　　　End If
End With
End Sub

列印前，可先〔預覽列印〕查看效果！！
　

momo020608

謝謝 大師 指導 ~

不知道 有什麼方法
可以讓 紙 順利自動出紙 自己整齊排放呢?
因為點陣機列印出來的紙，都不會 順利的排放整齊~

kkooo15

是機器問題，還是軟體問題，還是excel排版問題？？？

momo020608

機器問題>無法順利整齊出紙(會印到 紙張 散的很凌亂)
如果機器可以改善
在改善EXCEL 單數者，增加一頁~