エクセルで印刷プレビュー画面を使わず確認する方法！

質問

総ページ数や何ページ目にカーソルがあるかをワードですと表示されるように、エクセルにもそういった機能はないのでしょうか？
印刷プレビュー画面にいかないで確認できないのか知りたいです。よろしくお願いします。

回答No.4

Wendy02

こんにちは。

やっと出来ました。ただ、Wordのようには、リアルタイムで表示することは出来ません。標準モジュールに登録して、mySettingKey で、{F3}のキーにショートカットを組み込みました。なお、ステータスバーにも出せるようにしてみました。

Sub mySettingKey()
　Application.OnKey "{F3}", "Page_And_Line"
End Sub

Sub Page_And_Line()
　 '現在の行とページ数と総ページ数を出すマクロ
　 Dim lngPageTotal As Long
　 Dim intPrintDirection As Integer
　 Dim intHorizontalPage As Integer
　 Dim intVerticalPage As Integer
　 Dim intLocationVerticalPage As Integer
　 Dim intLocationHorizontalPage　As Integer
　 Dim lngLocationRow As Long
　 Dim intLocationColumn As Integer
　 Dim intPresentPage As Integer
　 On Error Resume Next
　 With Application
　　　lngPageTotal = .ExecuteExcel4Macro("GET.DOCUMENT(50)") '総ページ
　　　intPrintDirection = .ExecuteExcel4Macro("GET.DOCUMENT(61)") '印刷方向
　　　intHorizontalPage = .ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(64))") + 1 '水平改行数
　　　intVerticalPage = .ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(65))") + 1 '垂直改行数
　　　'現在の水平ページ
　　　intLocationHorizontalPage = .ExecuteExcel4Macro("MATCH(ROW(ACTIVE.CELL()),GET.DOCUMENT(64))")
　　　　 intLocationHorizontalPage = intLocationHorizontalPage + 1
　　　'現在の垂直ページ
　　　intLocationVerticalPage = .ExecuteExcel4Macro("MATCH(COLUMN(ACTIVE.CELL()),GET.DOCUMENT(65))")
　　　　intLocationVerticalPage = intLocationVerticalPage + 1
　　　lngLocationRow = .ExecuteExcel4Macro("LOOKUP(ROW(ACTIVE.CELL()),GET.DOCUMENT(64),TRUE)") 'ページライン位置
　　　If lngLocationRow = 0 Then
　　　　 lngLocationRow = ActiveCell.Row
　　　　 Else
　　　　 lngLocationRow = ActiveCell.Row - lngLocationRow
　　　End If
　 End With
　 If intPrintDirection = 1 Then
　　　If intVerticalPage > 1 Then
　　　　 intPresentPage = (lngPageTotal \ intVerticalPage) * (intLocationVerticalPage - 1) + intLocationHorizontalPage
　　　　 Else
　　　　 intPresentPage = intLocationHorizontalPage
　　　End If
　　　Else
　　　intPresentPage = (lngPageTotal \ intHorizontalPage) * (intLocationHorizontalPage - 1) + intLocationVerticalPage
　 End If
　 MsgBox lngLocationRow & "行　" & intPresentPage & " / " & lngPageTotal
　 'Wordのように、ステータスバーには表示できても時間が掛かります。
　 'Application.StatusBar = lngLocationRow & "行　" & intPresentPage & " / " & lngPageTotal
End Sub

回答No.3

fmajin

［表示］→［改ページプレビュー］コマンドを実行すると、シートの背景にページ数が表示されるようになります。あらかじめ、［ファイル］→［ページ設定］コマンドを実行して、用紙サイズや余白の設定などを行ってから実行するといいでしょう。

なお、［改ページプレビュー］モードを実行すると、ちょっと縮小して表示されますが、表示倍率は自分で任意に変更することができます。また、［改ページプレビュー］モードでも通常通り作業できますので、目的の状況に合っていると思うのですが。

お試しください。

回答No.2

banker_U

こんにちは

ご質問の趣旨は「印刷したら何ページになるか」って理解でいいですよね。その前提で・・・
　総ページ数はちょっと難しいですね。マクロ組む必要があります。
　今が何ページかということだけでしたら「改ページプレビュー」を使うというのはどうでしょうか？メニューバーの「表示」をクリックすると出てきます。

回答No.1

zenjee

カーソル位置というのは、現在選択中のセルの位置という意味でしょうか。（マウスカーソルは自由に動くのでカーソル位置の意味がよく分かりません。）
　それであれば左上の名前ボックスに、選択したセル地番が常に表示されているとと思いますが……。
　また総ページ数は出ませんが、表示→改ページプレビューにすると、ページ番号を表示した画面が出ます。
　範囲が多すぎて全体表示が出来ないときは、表示→ズームで画面を小さくすればあるていどは分かります。
　この程度で我慢するしかないように思いますが、ご質問の趣旨がこれとと違っていればごめんなさい。