教えてください。
改ページプレビューで自動で改ページされた表(何ページもある)を
区切りのいいところで改ページを入れなおす
マクロを作りたいのです。

区切りのいい所のセルには*が表示されているのですが
そのセルの下の行で改ページを入れなおしたいのです。

改ページプレビューで自動で設定された改ページの位置を
探すのには、何か良い方法はあるのでしょうか??

宜しくお願いいたします。

このQ&Aに関連する最新のQ&A

印刷 VBA」に関するQ&A: VBA印刷ページ設定

A 回答 (1件)

A列に所々に*を入れました。

110行ぐらいでテストしました。
Module1に下記を打ち込んで、実行をクリックすれば
*のある行の下の行に改ページの「----・・」が入りました。
実際に印刷していませんが・・・。
Sub pgbreak1()
Worksheets("sheet1").Activate
gyou = Range("b1").CurrentRegion.Rows.Count
'MsgBox gyou
For i = 1 To gyou
If Worksheets("sheet1").Cells(i, 1) = "*" Then
' MsgBox i
ActiveSheet.HPageBreaks.Add before:=Cells(i + 1, 1)
End If
Next i
End Sub

この回答への補足

imogasi さんありがとうございました。

実際やって見たところ、出来ました。
欲を言って申し訳ありませんが、今度は『*』ごとではなく
自動で入っている改ページまでで一番近い『*』の行の下に
手動で動かして区切れのいいところで改ページする様に、マクロで
入れたいんですが。。。。何かいい方法はないですか?
まずは自動で入った破線の改ページがどこにあるかを知らなければと
思うのですが。。。。よきアドバイスお願いいたします。

補足日時:2002/04/12 09:15
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qword 罫線 表 改頁

WORDで表を作ってその表のタイトルで改頁
などしたりしているうち
後でその改頁を削除しようとすると表の中に改頁表示が
埋めこまれて削除不可能になったりします。

きちんと改頁をとるにはどう操作すればよいのでしょうか。
よろしくお願いいたします。

Aベストアンサー

No1の者です。
いろいろ試してみたんですが、おっしゃるような現象は起こりませんでした(^^;)。できましたら、下記を教えてもらえませんか?
○Wordのバージョン
○OSの種類(Windows98とか)
○何行何列の表をいくつぐらい作成したのか。
○もし、「どういうときに起こりやすいか」というのがわかりましたら、より詳しく教えて下さい。

Q「改ページプレビュー」ボタンを無効にする方法

「改ページプレビュー」ボタンを無効にする方法

はじめまして。
Access側からVBAで、Excelのファイルのシートを
印刷プレビュー画面として表示させることにしています。
(バージョンはOffice2002です。)
====================================
Private Sub cmd01_Click()

Dim xls As Object 'Excel.Application
Dim wkb As Object 'Excel.Workbook

Set xls = CreateObject("Excel.Application")
Set wkb = xls.Workbooks.Open(FileName:="C:\TEST01.xls", ReadOnly:=True)
xls.Visible = True
xls.UserControl = True
wkb.PrintPreview EnableChanges:=True
xls.Workbooks.Close

Set wkb = Nothing
Set xls = Nothing

End Sub
====================================

印刷プレビュー画面の表示までは一応できているのですが、その際、
画面に表示されているボタン、特にその中でも
「改ページプレビュー」ボタンを無効にする方法がわかりません。

いろいろと調べても指定方法はわからず、ネットで検索しても、このボタンの
制御方法に言及しているサイトは1つか2つぐらいなので、もしかしたら
このボタンのVBAでの制御方法は公開されていないのかと思ってしまうほどです。

Excel2007では、印刷プレビュー画面において「改ページプレビュー」ボタン
は最初から表示されず無くなっていますので、一般には意識されていないのかも知れま
せん。

唯一見つかったサイトでのコーディングでは、コールバック関数形式も使って
説明されていましたが、それを試してみてもどうしてもこのボタンを無効にする事が
できませんでした。

「設定」ボタンと「余白」ボタンは無効にできますが、その方法では他のボタンの
制御には適用できないようなコーディングになっているので、行き詰まっています。


どなたか、Excelの印刷プレビュー画面(2007より前)における
「改ページプレビュー」ボタンを、VBAによって無効にする方法があれば、
教えていただけないでしょうか。


どうかよろしくお願い致します。

「改ページプレビュー」ボタンを無効にする方法

はじめまして。
Access側からVBAで、Excelのファイルのシートを
印刷プレビュー画面として表示させることにしています。
(バージョンはOffice2002です。)
====================================
Private Sub cmd01_Click()

Dim xls As Object 'Excel.Application
Dim wkb As Object 'Excel.Workbook

Set xls = CreateObject("Excel.Application")
Set wkb = xls.Workbooks.Open...続きを読む

Aベストアンサー

>フリーズの原因でも判ればいいのですが、なかなか困難そうです。
コードの提示があれば、他の方からも有益なアドバイスがあるかもしれません。
何分、私は素人なものですから、AddressOf演算子を用いたコールバック処理に関するテーマは躊躇してしまいます。
今の情報だけで言える事は、エラー制御はしっかりやっておいたほうが良いですよ、という事につきます。
最低でも

TimerId = SetTimer(0&, 0&, 10&, AddressOf TimerProc)
On Error Resume Next
Sheet1.PrintPreview
On Error GoTo 0
KillTimer 0&, TimerId

のようにOn Error Resume Next ステートメントの記述は必須でしょうね。

別案件ですが参考。
http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips15.htm
『エクセルでは、コールバックで呼ばれた処理の中で「実行時エラー」が発生し中断するとクラッシュする可能性があります。』
『仕組みを充分に理解した上で 『 自己責任 』 において行なってください。』

>フリーズの原因でも判ればいいのですが、なかなか困難そうです。
コードの提示があれば、他の方からも有益なアドバイスがあるかもしれません。
何分、私は素人なものですから、AddressOf演算子を用いたコールバック処理に関するテーマは躊躇してしまいます。
今の情報だけで言える事は、エラー制御はしっかりやっておいたほうが良いですよ、という事につきます。
最低でも

TimerId = SetTimer(0&, 0&, 10&, AddressOf TimerProc)
On Error Resume Next
Sheet1.PrintPreview
On Error GoTo 0
KillTimer 0&, Tim...続きを読む

Qwordで印刷の頁順を変えたい

wordでB5の文書4Pの倍数を作りB4用紙に出力する時
(以後4pの倍数)

通常文書を作成しますと

1頁目
2頁目
3頁目
4頁目
---
5頁目
6頁目
7頁目
8頁目
---
:
:
となりますが

これを下記の順序で印刷する事可能でしょうか
4頁目
1頁目
2頁目
3頁目
---
8頁目
5頁目
6頁目
7頁目
---
:
:
逆頁で印刷というのはあるようですが

1頁づつ移動して行えばできなくはないのですが
修正が入った時などズレを気にしなくてはならず
困っています。

良い方法があったら教えて下さい。
宜しくお願い致します。

Aベストアンサー

ファイル→印刷で
ページを指定して印刷の欄に、印刷したいページを
「4,1,2,3,8,5,6,7」と指定すればその順番で印刷します。(Word2000の場合)

Q改ページプレビューとヘルプボタンを無効にしたい。

自分で作ったエクセルファイルの印刷プレビューについてです。
VBAで書いた印刷マクロを実行すると普通の印刷プレビューが出るようになっています。
それには次のボタンが9個付いています。
次ページ、前ページ、ズーム、印刷、設定、余白、改ページプレビュー、ヘルプボタン。
この内「改ページプレビュー」と「ヘルプ」ボタンの2個を無効にしたいと思います。
ただし他のファイルをプレビューするときは普通に使いたいのでエクセル終了後は元に戻しておきたいのです。
もしエクセル2003と2007で異なる場合はお手数ですが両方お願いいたします。
尚、当方の実力はイベント用のシートと標準モジュールに簡単な記述を書ける程度です。

Aベストアンサー

Excelの標準機能に手を加えて機能を制限するには中級以上の知識が必要ではないでしょうか。
それと、エラー時に適切な対応ができるそれなりの実力も。

一応、2003に関してはよく紹介されるページ
http://homepage2.nifty.com/kmado/kvba.htm
ここの
『E00M089 プレビューのボタンを使用不可にする』
にその方法が書かれています。
でもちゃんと理解して使ってください。
下手な修正で実行すると、いきなりExcelが落ちる事もあります。

2007については元々「改ページプレビュー」ボタンはありません。
「ヘルプ」ボタンを消す事が可能かどうかは知りませんが
右上コーナーのヘルプアイコンまで消す必要は無いような気もします。

QWORDで中綴じ用の頁番号を付けるには?

WORDで中綴じ用の頁番号を付けることは可能でしょうか?

中綴じの場合、例えば、全部で16頁あったとすると、一枚面の用紙の表側は第1頁と第16頁(の2頁)、裏側は第2頁と第15頁(の2頁)のような頁番号になると思いますが、このような形で頁番号を表示し、かつ、その頁番号に該当する頁内容をプリントするにはどうすればよいでしょうか? 自動的に行う方法があるのでしょうか?

Aベストアンサー

次のような方法があります。

1) 印刷するページの順番を指定して印刷する。
2) プリンタの「冊子印刷」機能を利用する。
3) Wordの小冊子印刷機能を利用する。

「用紙の両面に印刷し、綴じて製本する」
http://pc.nikkeibp.co.jp/pc21/tech/word50/36/index.shtml

「「Word」 による「小冊子」の作成」
http://www1.odn.ne.jp/nsc-ob/cont203.htm

「小冊子を印刷する」
http://office.microsoft.com/ja-jp/word/HP030729491041.aspx

Q表示を標準か改ページプレビューに変更することで動作が変わる。

EnabledプロパティにFalseを設定した
コマンドバー、コマンドバーコントロールは、使用できない状態になると思いますが、
その際、表示を"標準"か"改ページ プレビュー"を変えることで
使用不可になったり、ならなかったりすることはありますでしょうか。

知人からもらったマクロを起動したところ、
"挿入"を使用不可にしたいのですが、"標準"表示では使用可能となり、
"改ページ プレビュー"表示では、コマンド通り使用不可になっています。

現在は、表示を切り替えて使用しているのですが、
何かご存知の方がいらしたら、ご教授ください。

Aベストアンサー

こんにちは。

エクセルのワークシート上で右クリックしたときに出てくる、コマンドバーの中の"挿入(&I)..."のことでしょうか?
そういう前提で回答します。
おそらく、
Application.CommandBars("Cell").Controls("挿入(&I)...").Enabled = False
のようにして使用不可にしていると思いますが、標準の時と改ページプレビューの時では右クリックで出てくるコマンドバーが違うので、どちらかの"挿入(&I)..."だけしか使用不可にならないのでしょう。
コマンドバーをIndexで指定するか、すべてのコマンドバーをループして、名前で判断するようにすれば良いと思いますが、Indexはエクセルのヴァージョンによって違うと思うので、ループさせるのが良いと思います。

Sub Test()
Dim cb As CommandBar
For Each cb In Application.CommandBars
If cb.Name = "Cell" Then
cb.Controls("挿入(&I)...").Enabled = False
End If
Next
End Sub

こうすれば、標準でも改ページプレビューでも"挿入"を使用不可にできると思います。

こんにちは。

エクセルのワークシート上で右クリックしたときに出てくる、コマンドバーの中の"挿入(&I)..."のことでしょうか?
そういう前提で回答します。
おそらく、
Application.CommandBars("Cell").Controls("挿入(&I)...").Enabled = False
のようにして使用不可にしていると思いますが、標準の時と改ページプレビューの時では右クリックで出てくるコマンドバーが違うので、どちらかの"挿入(&I)..."だけしか使用不可にならないのでしょう。
コマンドバーをIndexで指定するか、すべてのコマンドバー...続きを読む

QWord2010の頁番号の付け方で質問です

Word2010で、5頁の文書を作りました。1~3頁まで頁番号を付け、4頁と5頁には付けないという事は出来るでしょうか?3頁文末にセクション区切りを挿入して試してみましたが、上手くいきませんでした。宜しくお願いします。

Aベストアンサー

まず、「挿入」→「ヘッダーとフッター」→「ページ番号」で、ページ番号を挿入します。
この状態では、4ページと5ページにもページ番号が入っていると思います。

次に、4ページのページ番号が入っているフッターの部分にカーソルを置いて、「ヘッダー/フッターツール」「デザイン」→「ナビゲーション」の中の「前と同じヘッダー/フッター」をクリックします。
これで、4ページと5ページのページ番号が消えるはずです。

Q4桁の数字を A*1000+B*100+C*10+D 以外で表現したい。

A=1
B=2
C=3
D=4

のとき 
1234をA*1000+B*100+C*10+D以外で表現したいのですが
何かいい方法がないでしょうか?
4桁ならいいんですが
15、6桁を10行ぐらいコーディングしないといけないのでなえてます↓助けてください。

Aベストアンサー

No.4です。

VB2005でも問題なくできますよ。実際に確認済みです。

Dim A As Integer = 1
Dim B As Integer = 2
Dim C As Integer = 3
Dim D As Integer = 4
Dim E As integer

E = (A & B & C & D) * 1
MsgBox(E)

これで試してください。

Q宇多田ヒカルの最近の画像!!

今日、Mステーションに宇多田ヒカルが出演しましたが、仕事で見れませんでした…(泣)
宇多田ファンの自分としては大ショックです…

色々なサイトで、宇多田ヒカル太った!と話題になってますが、最近の宇多田ヒカルの画像が見たいです!

仕事が忙しく、テレビ見れなくて…

今日のMステの出演時の画像や最近の画像があれば、よろしくお願いいたします!!

Aベストアンサー

今公式サイトなどで映像配信してますよ。
期間限定だったと思いますが、ギターで弾き語りをしているとか・・・。
私はまだ見ていないのですが、多分つい最近撮られたものだと思いますので、ごらんになってみては?

参考URL:http://www.toshiba-emi.co.jp/hikki/

QActiveReportの改ページ不具合について

.NETでActiveReportを使用しておりますが、改ページのデータ不具合が発生しております。

GroupHeader1に部門名、GroupHeader2に得意先名を指定しております。
各HeaderにはDataFieldを指定しており、GroupHeader1には部門コード、GroupHeader2には得意先コードを設定しております。改ページはGroupHeader1の部門コードごとに自動でされるよう設定しております。
帳票は下記のようになっています。

PageHeader
GroupHeader1
GroupHeader2
Detail
GroupFooter2
GroupFotter1
PageFotter

このデータで帳票を出力した場合、1ページ内に収まりきらずに自動で改ページされ、かつ次ページに1件しかデータがない場合、GroupHeader1の部門名が次のGroupの部門名になってしまいます。なお、最初の部門名以外で、次ページに1件のみしかでない場合は正常です。

上記回避方法をお教え頂けませんでしょうか?
3日間悩んでいるのですが、なかなか解決方法が見つかりません。皆様のお力をお貸しいただきたく。
よろしくお願いいたします。

.NETでActiveReportを使用しておりますが、改ページのデータ不具合が発生しております。

GroupHeader1に部門名、GroupHeader2に得意先名を指定しております。
各HeaderにはDataFieldを指定しており、GroupHeader1には部門コード、GroupHeader2には得意先コードを設定しております。改ページはGroupHeader1の部門コードごとに自動でされるよう設定しております。
帳票は下記のようになっています。

PageHeader
GroupHeader1
GroupHeader2
Detail
GroupFooter2
GroupFotter1
PageFotter

このデータ...続きを読む

Aベストアンサー

> 3日間悩んでいるのですが~

うぅーん。その前にGrapeCityに問い合わせておけばよかったですね。
バグレポートにも載っていない不具合でしょうか?
どちらにしても回答はくれると思います。
高いお金を出して購入したのですから是非問い合わせましょう。
バグレポートに載せない不具合も有りますからして。
もしかしたら既知の事で回避策など教えてくれるかもしれません。

#私の場合も不具合を認めておきながらバグレポートにも載らずパッチすらでませんでした


人気Q&Aランキング

おすすめ情報