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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBAでページ番号、ページ最終行を取得する方法
その他(プログラミング・Web制作)
-
EXCEL、マクロ-改ページ行番号の取得方法を教えてください
Visual Basic(VBA)
-
A1セルにアクティブセルのページ数を入力したい
Excel(エクセル)
-
-
4
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
5
エクセルでページごとにヘッダー・フッターを設定できますか?
Excel(エクセル)
-
6
エクセルでページ数をあるセルに表示させたい
Excel(エクセル)
-
7
エクセルでセルにページ番号を挿入できる?
Excel(エクセル)
-
8
EXCELでヘッダーを使わずにページ番号をつける方法って?
Excel(エクセル)
-
9
Excelでシートを複数シート選択した場合の総ページ数に関して
Excel(エクセル)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
エクセル フッターのページ番号をセルに反映させたい。
Excel(エクセル)
-
12
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
13
エクセルでのヘッダーをページごとにかえられますか?
Excel(エクセル)
-
14
ヘッダー
Excel(エクセル)
-
15
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
エクセルで目次に自動でページをふるには?
Excel(エクセル)
-
18
EXCELでタイトル行と一番下の行を固定して印刷したい
会計ソフト・業務用ソフト
-
19
Excelのマクロについて
Visual Basic(VBA)
-
20
フォントの大きさ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
ページが増える
-
エクセルの縦の幅だけ拡大したい。
-
改ページの2ページ目の作り方
-
エクセルのA3横一枚のデータをA...
-
Thunderbirdで印刷およびページ...
-
エクセルでページのど真ん中に...
-
EXCEL改ページプレビューのペー...
-
エクセルでA4 2枚をA3 1枚で印...
-
印刷範囲がこまぎれになる
-
EXCELで1行の内容を1枚の紙に印...
-
EXCELで、なぜ「改ページプレビ...
-
Excelの改ページの限界について
-
エクセル上に貼り付けた画像が...
-
なぜ改ページプレビューで保存...
-
エクセルのマクロで印刷プレビ...
-
同じExcelのデータなのにプリン...
-
改ページプレビュー時の薄灰の...
-
空白のページが印刷される。
-
エクセルの横1枚での印刷につ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
ページが増える
-
エクセルの縦の幅だけ拡大したい。
-
エクセルでA4 2枚をA3 1枚で印...
-
EXCEL改ページプレビューのペー...
-
改ページの2ページ目の作り方
-
YMM4 で MOV ファイルが読み込...
-
EXCELで1行の内容を1枚の紙に印...
-
余分なEXCELファイルに印刷され...
-
エクセルで点線を引き、印刷す...
-
エクセルのA3横一枚のデータをA...
-
エクセル上に貼り付けた画像が...
-
Excelで特定の文字・記号のとこ...
-
エクセルのマクロで印刷プレビ...
-
印刷範囲がこまぎれになる
-
Excelの改ページ印刷についての...
-
Excelで縦を拡大、横を縮小する...
-
エクセルのセルの枠線の点線に...
-
エクセルでページのど真ん中に...
-
Excelで全ての行単位で改...
おすすめ情報