Excel VBA質問箱 IV

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

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


1439 / 13646 ツリー ←次へ | 前へ→

【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ページ目以降空白にしたいのです。つまり御買上額と請求金額の表示は1ページ目だけにしたいのですが、
そのような方法はあるのでしょうか?
ご存知の方があれば教えてください。
宜しくお願い致します。


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ページ目と2ページ目を別々に印刷してみては、ということです。
1. 1ページ目は From:=1 To:= 1で普通に印刷
2.データの大きさから、2ページ目があるかどうか判定。
3.2ページ目があるなら、印刷のまえに、
  「当月御買上額と当月請求額の値が入ったセル」をシートのどこかダミーに移動。
  (フォントを白にするのもいいかもしれません。)
4. From:=2 To:= 2で印刷
5.3を元に戻す。
というようなことです。

【74489】Re:印刷タイトルの設定に関して
お礼  たくまよ  - 13/6/27(木) 1:11 -

引用なし
パスワード
   ▼γ さん:
>▼たくまよ さん:
>>もう少し具体的に教えていただけますでしょうか?
>結局は1ページ目と2ページ目を別々に印刷してみては、ということです。
>1. 1ページ目は From:=1 To:= 1で普通に印刷
>2.データの大きさから、2ページ目があるかどうか判定。
>3.2ページ目があるなら、印刷のまえに、
>  「当月御買上額と当月請求額の値が入ったセル」をシートのどこかダミーに移動。
>  (フォントを白にするのもいいかもしれません。)
>4. From:=2 To:= 2で印刷
>5.3を元に戻す。
>というようなことです。

ありがとうございました。
おっしゃっていただいた通りにするとうまくいきました。
ありがとうございました。

1439 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free