
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAでページ番号、ページ最終行を取得する方法
その他(プログラミング・Web制作)
-
EXCEL、マクロ-改ページ行番号の取得方法を教えてください
Visual Basic(VBA)
-
エクセルでページ数をあるセルに表示させたい
Excel(エクセル)
-
-
4
A1セルにアクティブセルのページ数を入力したい
Excel(エクセル)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
7
エクセルでセルにページ番号を挿入できる?
Excel(エクセル)
-
8
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
9
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
10
EXCELで変数をペーストしたい
その他(プログラミング・Web制作)
-
11
エクセルで目次に自動でページをふるには?
Excel(エクセル)
-
12
エクセルで、ヘッダーに特定セル内容を指定して印刷したい
Excel(エクセル)
-
13
エクセルマクロで「1」を「01」に変換したい
Excel(エクセル)
-
14
EXCEL/VBA 変数の値をクリップボードにコピーする方法
Visual Basic(VBA)
-
15
excelで直前に参照していたブックに戻るマクロは作れますか?
Excel(エクセル)
-
16
Excel マクロ 選択セルの値の枚数印刷かつページ数をセルに表記
Excel(エクセル)
-
17
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
エクセルのマクロで印刷プレビ...
-
エクセルで印刷、0.5が1になる。
-
EXCELで1行の内容を1枚の紙に印...
-
エクセルの縦の幅だけ拡大したい。
-
EXCEL改ページプレビューのペー...
-
エクセルでA4 2枚をA3 1枚で印...
-
YMM4 で MOV ファイルが読み込...
-
エクセルで点線を引き、印刷す...
-
エクセル上に貼り付けた画像が...
-
Excelで全ての行単位で改...
-
ExcelVBA 改ページの横破線を消...
-
Excelで特定の文字・記号のとこ...
-
ページが増える
-
thunderbirdで受け取ったpdfフ...
-
エクセルで印刷範囲以外を灰色...
-
改ページの2ページ目の作り方
-
項目の多い表を見やすく作る方法
-
プレビューが途中で切れ、プリ...
-
Excelの改ページプレビューの実...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL改ページプレビューのペー...
-
Excelのグレーの部分を戻したい
-
YMM4 で MOV ファイルが読み込...
-
ページが増える
-
エクセルの縦の幅だけ拡大したい。
-
エクセルでA4 2枚をA3 1枚で印...
-
エクセルで印刷、0.5が1になる。
-
エクセルのマクロで印刷プレビ...
-
エクセルで点線を引き、印刷す...
-
EXCELで1行の内容を1枚の紙に印...
-
エクセル2007で印刷プレビュー ...
-
エクセル上に貼り付けた画像が...
-
エクセルで印刷範囲以外を灰色...
-
Excelの改ページ印刷についての...
-
エクセルのA3横一枚のデータをA...
-
Excelで縦を拡大、横を縮小する...
-
エクセルでの印刷時に変な線や...
-
プリンターが突然1部しか印刷...
-
Thunderbirdで印刷およびページ...
-
Excelで特定の文字・記号のとこ...
おすすめ情報