[[20160223120343]]　『印刷タイトル 2箇所設定』（さるさる）　ページの最後に飛ぶ

『印刷タイトル 2箇所設定』（さるさる）

印刷タイトルのタイトル行の設定を複数個所設定したい。

1枚目は$1:$11で
2枚目以降は
$1:$7,$11:$11のように
設定をしたい。

どうしてもうまくいかないもので・・

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 印刷タイトルは連続した範囲でしか設定できません。
 また、同じシートでは1種類しか設定できないと思います。

 2枚目以降の8～10行目は何をどのように表示したいんですか？
 1枚目と同じ1～11行じゃダメなんですか？
（コナミ） 2016/02/23(火) 13:19

（コナミ）さん

2枚目以降の8～10行目は何をどのように表示したいんですか？のところですが、納品書に使うための合計数や金額の書くところになります。

（さるさる） 2016/02/23(火) 13:26

 ということは8～10行目は印刷ごとに変えていくことになるんですよね。
 Excelのつくりを考えてもらうとわかると思いますが、印刷タイトルは
 ウインドウ枠の固定をした状態で、動く範囲の所を次々と印刷していくイメージです。
 固定している部分については、印刷ごとに内容を変えることはできません。

 1枚目と2枚目以降はシートを変えるとして、
 2枚目以降の一番上部分はフッターで対応とかはできないでしょうか。

 また、以上の内容は一般機能範囲での話ですので、VBAなら何かしら
 方法があるかも知れません。
 データの具体的な配置や、印刷したいレイアウトなどを提示すれば
 有効な回答がつくかも知れません。

（コナミ） 2016/02/23(火) 14:19

そうですか・・無理っぽいですね・・・
以下のような感じになっております。

1 株式会社　****御中
2 伝票日付　：　2016/2/23
3 仕入先コード：****
4 納入指示?ａ@：****
5
6
7
8 数量合計金額合計上代金額合計
9 100 100,000 100,000
10
11 No 品番カラーサイズ数量単価金額(タイトル)
12　明細

が元データになります。
納品先の指定フォーマットですので、8-9行目の項目はフッダーに移動することができません・・・

（さるさる） 2016/02/23(火) 14:57

 ごめんなさい。

 >フッターで対応

 ヘッダーですね…どちらにしてもちょっと難しいですが。

 8～9行目ははページごとの数量や金額ということですか？
 それとも会社ごとの総額？

（コナミ） 2016/02/23(火) 15:05

いろいろありがとうございます。

＞それとも会社ごとの総額？
会社ごとの総額です。
（さるさる） 2016/02/23(火) 15:22

 ということはどちらにしろ会社ごとに印刷するときは会社名を変えたりするんですよね。
 では、総計を入れておいて1～11行目固定でいいのでは？
 …そもそもどの部分が問題だったんでしょう？（すみません、いまさら）
（コナミ） 2016/02/23(火) 15:26

2ページ目以降に

8 数量合計金額合計上代金額合計
9 100 100,000 100,000
の項目をなくして表示したかった状態です。
以下のような表示に

1 株式会社　****御中
2 伝票日付　：　2016/2/23

 3 仕入先コード：**** 
4 納入指示?ａ@：**** 
5 
 6 
 7 
 10 
 11 No 品番 カラー サイズ 数量 単価 金額(タイトル) 
12　明細

説明不足ですみません。

（さるさる） 2016/02/23(火) 15:48

 あー、なるほどね。やっぱり一般機能では難しいかな。
 どなたかVBAで回答頂けるといいのですが。
 お力になれなくてすみません。
（コナミ） 2016/02/23(火) 16:02

いろいろありがとうございます。
（さるさる） 2016/02/23(火) 16:40

p値は、適当に修正が必要ですが、
まずは、そのまま下記のマクロを実行してみてください。
動作確認のために印刷せずプレビューにしてあります。
PrintPreviewの部分を、PrintOutにすれば実際に印刷されます。

 Sub test()
    Dim p As Long
    Dim r As Long

    p = 30  '★１枚目に印刷するデータ最終行

    With ActiveSheet
        .Rows("12:" & p).PrintPreview
        r = .Range("A" & .Rows.Count).End(xlUp).Row
        If r > p Then
            .Rows("8:10").EntireRow.Hidden = True
            .Rows(p + 1 & ":" & r).PrintPreview
            .Rows("8:10").EntireRow.Hidden = False
        End If
    End With

 End Sub

（マナ） 2016/02/24(水) 00:02

コメント返信：

[ 一覧(最新更新順) ]

[[20160223120343]] 『印刷タイトル 2箇所設定』（さるさる） ページの最後に飛ぶ

[[20160223120343]]　『印刷タイトル 2箇所設定』（さるさる）　ページの最後に飛ぶ