No.1ベストアンサー
- 回答日時:
Application.ExecuteExcel4Macro("get.document(50)")
で、印刷ページ数が取得出来ます。
http://www2.odn.ne.jp/excel/waza/print.html
お礼が遅くなってすみません。
教えていただいたファンクションで無事
実現することができました。
アクティブなシートでないと取得できないということが
わかるのに少々手間取りましたが(笑)
ありがとうございました!
No.2
- 回答日時:
こんばんは。
>過去ログも見たのですがHPageBreaks.Countでは
>プレビューでは1ページしかないはずのシートで1が返ってきたりしてどうもうまくいきません。
過去ログがどんな内容かはわかりませんが、1が返ってくるなら、あっているのでは?それは、たぶん、0ではありませんか?
HPageBreaks.Count というのは、水平ページブレイクの数のことですから、最後のページには入りません。そこで、1つ足してあげなくてはなりません。
HPageBreaks.Count + 1
なお、正確には、この水平ページブレークと垂直ページブレークとがありますから、
Sub PageCount()
'ページ数を取る
Dim lngHpage As Long
Dim lngVPage As Long
Dim lngPTotal As Long
On Error Resume Next
'水平改ページ数 + 1
lngHpage = ActiveSheet.HPageBreaks.Count + 1
'垂直改ページ数 + 1
lngVPage = ActiveSheet.VPageBreaks.Count + 1
'総ページ数を計算
lngPTotal = Int(lngHpage * lngVPage)
MsgBox lngPTotal
End Sub
このようになります。ただし、改ページプレビューを使うとデータが飛んでしまうことがあります。
私も、ふだんは、Ver4 マクロ関数を使います。こちらは、直接、Applicationにアクセスして、取得していますので、若干ですが、取得時間が速いようです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 複数のブックをひとつのブック(複数のシートにまとめる)場合にシートとの順番について 5 2022/12/28 20:47
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/25 11:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- PDF vbaでpdfを開いて1ページ目のみ印刷する。 1 2022/11/12 12:35
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBAでページ番号、ページ最終行を取得する方法
その他(プログラミング・Web制作)
-
EXCEL、マクロ-改ページ行番号の取得方法を教えてください
Visual Basic(VBA)
-
A1セルにアクティブセルのページ数を入力したい
Excel(エクセル)
-
-
4
エクセルでページごとにヘッダー・フッターを設定できますか?
Excel(エクセル)
-
5
エクセルでページ数をあるセルに表示させたい
Excel(エクセル)
-
6
エクセルでのヘッダーをページごとにかえられますか?
Excel(エクセル)
-
7
エクセルでセルにページ番号を挿入できる?
Excel(エクセル)
-
8
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
9
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
10
ヘッダー
Excel(エクセル)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
EXCELでヘッダーを使わずにページ番号をつける方法って?
Excel(エクセル)
-
13
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
14
Excelでシートを複数シート選択した場合の総ページ数に関して
Excel(エクセル)
-
15
excelにて各シートの総印刷ページ数を取得したいのですが、GET.D
Visual Basic(VBA)
-
16
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
17
エクセルで同じ大きさ、同じ倍率、同じ余白なのにプレビューが違います。なぜ?
Excel(エクセル)
-
18
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
19
エクセル フッターのページ番号をセルに反映させたい。
Excel(エクセル)
-
20
Excelマクロ セルを行頭に移動
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
YMM4 で MOV ファイルが読み込...
-
エクセルの縦の幅だけ拡大したい。
-
EXCEL改ページプレビューのペー...
-
ページが増える
-
改ページの2ページ目の作り方
-
Excelの改ページ印刷についての...
-
エクセルで点線を引き、印刷す...
-
ワードで両面印刷の冊子制作の...
-
エクセルでA4 2枚をA3 1枚で印...
-
エクセル2010:貼り付け時のプ...
-
プリンターが突然1部しか印刷...
-
【Excel】エクセルの1シートが...
-
EXCELで1行の内容を1枚の紙に印...
-
Thunderbirdで印刷およびページ...
-
エクセル2007で印刷プレビュー ...
-
エクセルのマクロで印刷プレビ...
-
白紙部分まで印刷対象に!(エ...
-
同じExcelのデータなのにプリン...
-
印刷範囲がこまぎれになる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
ページが増える
-
エクセルの縦の幅だけ拡大したい。
-
EXCEL改ページプレビューのペー...
-
エクセルでA4 2枚をA3 1枚で印...
-
YMM4 で MOV ファイルが読み込...
-
改ページの2ページ目の作り方
-
印刷範囲がこまぎれになる
-
エクセルで点線を引き、印刷す...
-
エクセルのマクロで印刷プレビ...
-
EXCELで1行の内容を1枚の紙に印...
-
エクセルのA3横一枚のデータをA...
-
Excelで特定の文字・記号のとこ...
-
エクセル上に貼り付けた画像が...
-
エクセルで印刷範囲以外を灰色...
-
Excelで縦を拡大、横を縮小する...
-
Excelの改ページ印刷についての...
-
エクセルでページのど真ん中に...
-
エクセルのセルの枠線の点線に...
-
ExcelVBA 改ページの横破線を消...
おすすめ情報