返回列表下一主題上一主題發帖

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

momo020608

中學生 Rank: 2

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

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-2-12 17:37 | 只看該作者

請問 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點陣式印表機印出來的報表紙
可以自己排的非常整齊，不會亂七八糟呢?

樓主熱帖

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2016-2-14 10:44 | 只看該作者

回復 1# momo020608

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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

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

momo020608