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

本帖最後由 momo020608 於 2016-2-12 17:39 編輯

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

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

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

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

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

樓主熱帖

momo020608

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 73
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2015-12-13
最後登錄: 2024-7-17

論壇贊助勳章

6^#

發表於 2017-1-18 19:26 | 只看該作者

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

TOP

kkooo15

　暱稱: 新手

中學生 Rank: 2

帖子: 123
主題: 37
精華: 0
積分: 177
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-11-9
最後登錄: 2024-3-28

5^#

發表於 2017-1-5 21:34 | 只看該作者

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

excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

momo020608

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 73
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2015-12-13
最後登錄: 2024-7-17

論壇贊助勳章

4^#

發表於 2016-12-21 20:57 | 只看該作者

謝謝大師指導 ~

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-22

3^#

發表於 2016-2-14 15:40 | 只看該作者

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

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

TOP

ML089