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

013160

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

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

jackson7015

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

013160

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

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

jackson7015

回復 3# 013160


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

013160

回復  013160


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

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

jackson7015

回復 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)

下載次數: 4

2014-5-30 17:07

yen956

回復 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

複製代碼