返回列表 上一主題 發帖

[發問] 頁面標題及尾端重覆

013160

帖子
61 
主題
20 
精華
0 
積分
106 
點名
22  
作業系統
winds XP 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2014-1-21 
最後登錄
2024-10-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-5-29 16:16 | 只看該作者

[發問] 頁面標題及尾端重覆

http://sync.hamicloud.net/_docView/k_k013160/awh

想請教一下
要如何讓標題及尾端(黃色區域)重覆至下一個頁面，只知道如何重覆標題，但尾端一直搞不定。
煩請各位前輩告知，謝謝!!
收藏 分享

jackson7015

帖子
233 
主題
53 
精華
0 
積分
292 
點名
0  
作業系統
WinXp 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-6 
最後登錄
2024-3-8 

論壇贊助勳章
2#
發表於 2014-5-30 08:38 | 只看該作者
不曉得是否版本會有不同
2010的設定部分是在列印中的版面設定/頁尾(自訂尾頁)

TOP

013160

帖子
61 
主題
20 
精華
0 
積分
106 
點名
22  
作業系統
winds XP 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2014-1-21 
最後登錄
2024-10-8 
3#
發表於 2014-5-30 09:01 | 只看該作者
不曉得是否版本會有不同
2010的設定部分是在列印中的版面設定/頁尾(自訂尾頁)
jackson7015 發表於 2014-5-30 08:38



可是我尾端有兩行，自訂頁首頁尾只能打一行，不是嗎!?

TOP

jackson7015

帖子
233 
主題
53 
精華
0 
積分
292 
點名
0  
作業系統
WinXp 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-6 
最後登錄
2024-3-8 

論壇贊助勳章
4#
發表於 2014-5-30 09:13 | 只看該作者
本帖最後由 jackson7015 於 2014-5-30 09:25 編輯

回復 3# 013160


    剛剛測試了一下，是可以多行執行
2010的部分
在頁尾設定的部分(左、中、右皆可)，第一行設定後，按"ENTER"就可以跳到下一行繼續編寫

TOP

013160

帖子
61 
主題
20 
精華
0 
積分
106 
點名
22  
作業系統
winds XP 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2014-1-21 
最後登錄
2024-10-8 
5#
發表於 2014-5-30 09:53 | 只看該作者
回復  013160


    剛剛測試了一下，是可以多行執行
2010的部分
在頁尾設定的部分(左、中、右皆可)， ...
jackson7015 發表於 2014-5-30 09:13



謝謝指教，可以了。
還有個問題可否請教
如果我要連表格線都重覆到下一個頁面要如何設定!?
也就是我跳到下一頁時會重覆我上一頁一模一樣的格式，但內容是可自行輸入的。

TOP

jackson7015

帖子
233 
主題
53 
精華
0 
積分
292 
點名
0  
作業系統
WinXp 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-6 
最後登錄
2024-3-8 

論壇贊助勳章
6#
發表於 2014-5-30 17:07 | 只看該作者
本帖最後由 jackson7015 於 2014-5-30 17:09 編輯

回復 5# 013160

這個就需要利用到VBA去編譯了

我只會這種的，如果要在複雜的話，就去程式區請教前輩們了
  1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
  2. Sh = ActiveSheet.Name
  3. If Sh = "項目1" Then
  4.   If [E6] = "" Then
  5.      LR = 5
  6.   Else
  7.      LR = Application.CountA([C6:C65535])
  8.      LR = Application.RoundUp(LR, -1) + 5
  9.   End If
  10.   ActiveSheet.PageSetup.PrintArea = "C1:I" & LR
  11. End If
  12. End Sub
複製代碼
活頁簿1.rar (57.71 KB)

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
7#
發表於 2014-6-3 13:49 | 只看該作者
回復 7# 013160
試試看：
1. 選取 7:22 列 → 複制 → 選取 23列→ 插入複制的儲存格
2. 重覆上述步驟數次
(如每日最多需五頁, 則重覆五次, 以下以五頁為例)
3. 新增 SpinButton1(屬性設定：Max→5; Min→1)
4. 加入下列VBA
  1. Private Sub SpinButton1_Change()
  2.     Dim r1, P As Integer
  3.     P = --SpinButton1
  4.     r1 = 16 * P - 9
  5.     Rows("7:86").RowHeight = 0
  6.     Rows(r1 & ":" & r1 + 15).RowHeight = 22.5
  7. End Sub
複製代碼

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題