麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 頁面標題及尾端重覆 [打印本頁]

作者: 013160 時間: 2014-5-29 16:16 標題: 頁面標題及尾端重覆

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

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

作者: jackson7015 時間: 2014-5-30 08:38

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

作者: 013160 時間: 2014-5-30 09:01

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

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

作者: jackson7015 時間: 2014-5-30 09:13

本帖最後由 jackson7015 於 2014-5-30 09:25 編輯

回復 3# 013160

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

作者: 013160 時間: 2014-5-30 09:53

回復 013160

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

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

作者: jackson7015 時間: 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

複製代碼

[attach]18419[/attach]

作者: yen956 時間: 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

複製代碼

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)