Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1450 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【74478】印刷タイトルの設定に関して たくまよ 13/6/25(火) 16:07 質問[未読]
【74482】Re:印刷タイトルの設定に関して γ 13/6/26(水) 8:38 発言[未読]
【74483】Re:印刷タイトルの設定に関して たくまよ 13/6/26(水) 9:09 発言[未読]
【74487】Re:印刷タイトルの設定に関して γ 13/6/26(水) 20:54 発言[未読]
【74489】Re:印刷タイトルの設定に関して たくまよ 13/6/27(木) 1:11 お礼[未読]
【74478】印刷タイトルの設定に関して
質問  たくまよ  - 13/6/25(火) 16:07 -
引用なし
パスワード
   エクセルファイルで請求書（明細付）を作成しました。
明細は各商品ごとなのでだいたい印刷結果は2ページになるので
印刷タイトルの行タイトルは1行目からから11行目を設定しております。
そこで問題は当月御買上額と当月請求額の値が入ったセルは2ページ目以降空白にしたいのです。つまり御買上額と請求金額の表示は１ページ目だけにしたいのですが、
そのような方法はあるのでしょうか？
ご存知の方があれば教えてください。
宜しくお願い致します。


4行　　　　　　請　　 求　　 書　　　　　　　　
　　　　　　　　
8行　　　下記の通りご請求申し上げます。　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　
10行　当月御買上額　　　　40,000　　　　当月ご請求額　　　　30,000　　　　　　　　
11行　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　
12行　 納品日　　　　品名　　値段　　個数　金額　　　　
13行　2013/7/1 　プレーン　 580　　 1　　　　　 580　　　　
14行　2013/7/1 　イギリス　 520　　 1　　　　　 520　　　　
【74482】Re:印刷タイトルの設定に関して
発言  γ  - 13/6/26(水) 8:38 -
引用なし
パスワード
   PrintOut メソッドには対象とするページを指定する引数があります。
各ページに応じて、当該箇所を書き換えるようにしてはどうでしょうか。
ご検討ください。
【74483】Re:印刷タイトルの設定に関して
発言  たくまよ E-MAIL  - 13/6/26(水) 9:09 -
引用なし
パスワード
   ▼γ さん：
>PrintOut メソッドには対象とするページを指定する引数があります。
>各ページに応じて、当該箇所を書き換えるようにしてはどうでしょうか。
>ご検討ください。

もう少し具体的に教えていただけますでしょうか？
【74487】Re:印刷タイトルの設定に関して
発言  γ  - 13/6/26(水) 20:54 -
引用なし
パスワード
   ▼たくまよ さん：
>もう少し具体的に教えていただけますでしょうか？
結局は１ページ目と２ページ目を別々に印刷してみては、ということです。
１. 1ページ目は From:=1　To:= 1で普通に印刷
２．データの大きさから、2ページ目があるかどうか判定。
３．2ページ目があるなら、印刷のまえに、
　　「当月御買上額と当月請求額の値が入ったセル」をシートのどこかダミーに移動。
　　（フォントを白にするのもいいかもしれません。）
４. From:=2　To:= 2で印刷
５．３を元に戻す。
というようなことです。
【74489】Re:印刷タイトルの設定に関して
お礼  たくまよ  - 13/6/27(木) 1:11 -
引用なし
パスワード
   ▼γ さん：
>▼たくまよ さん：
>>もう少し具体的に教えていただけますでしょうか？
>結局は１ページ目と２ページ目を別々に印刷してみては、ということです。
>１. 1ページ目は From:=1　To:= 1で普通に印刷
>２．データの大きさから、2ページ目があるかどうか判定。
>３．2ページ目があるなら、印刷のまえに、
>　　「当月御買上額と当月請求額の値が入ったセル」をシートのどこかダミーに移動。
>　　（フォントを白にするのもいいかもしれません。）
>４. From:=2　To:= 2で印刷
>５．３を元に戻す。
>というようなことです。

ありがとうございました。
おっしゃっていただいた通りにするとうまくいきました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1450 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free