013160

中學生 Rank: 2

帖子: 61
主題: 20
精華: 0
積分: 106
點名: 19
作業系統: winds XP
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2014-1-21
最後登錄: 2024-3-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-5-29 16:16 | 只看該作者

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

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

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

樓主熱帖

jackson7015

中學生 Rank: 2

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

論壇贊助勳章

2^#

發表於 2014-5-30 08:38 | 只看該作者

不曉得是否版本會有不同
2010的設定部分是在列印中的版面設定/頁尾(自訂尾頁)

TOP

013160

中學生 Rank: 2

帖子: 61
主題: 20
精華: 0
積分: 106
點名: 19
作業系統: winds XP
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2014-1-21
最後登錄: 2024-3-26

3^#

發表於 2014-5-30 09:01 | 只看該作者

不曉得是否版本會有不同
2010的設定部分是在列印中的版面設定/頁尾(自訂尾頁)
jackson7015 發表於 2014-5-30 08:38

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

TOP

jackson7015

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 61
主題: 20
精華: 0
積分: 106
點名: 19
作業系統: winds XP
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2014-1-21
最後登錄: 2024-3-26

5^#

發表於 2014-5-30 09:53 | 只看該作者

回復 013160

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

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

TOP

jackson7015

中學生 Rank: 2

帖子: 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去編譯了

我只會這種的，如果要在複雜的話，就去程式區請教前輩們了

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sh = ActiveSheet.Name
If Sh = "項目1" Then
If [E6] = "" Then
LR = 5
Else
LR = Application.CountA([C6:C65535])
LR = Application.RoundUp(LR, -1) + 5
End If
ActiveSheet.PageSetup.PrintArea = "C1:I" & LR
End If
End Sub

複製代碼

活頁簿1.rar (57.71 KB)

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 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

Private Sub SpinButton1_Change()
Dim r1, P As Integer
P = --SpinButton1
r1 = 16 * P - 9
Rows("7:86").RowHeight = 0
Rows(r1 & ":" & r1 + 15).RowHeight = 22.5
End Sub

複製代碼

TOP