ベストアンサー

エクセルVBAで印刷時の改ページ探しは出来る??

2002/04/11 19:29

教えてください。改ページプレビューで自動で改ページされた表(何ページもある)を区切りのいいところで改ページを入れなおすマクロを作りたいのです。区切りのいい所のセルには*が表示されているのですがそのセルの下の行で改ページを入れなおしたいのです。改ページプレビューで自動で設定された改ページの位置を探すのには、何か良い方法はあるのでしょうか?? 宜しくお願いいたします。

mikuku
お礼率60% (9/15)

Visual Basic
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

imogasi
ベストアンサー率27% (4737/17070)

2002/04/11 21:56 回答No.1

A列に所々に＊を入れました。１１０行ぐらいでテストしました。Ｍｏｄｕｌｅ１に下記を打ち込んで、実行をクリックすれば＊のある行の下の行に改ページの「－－－－・・」が入りました。実際に印刷していませんが・・・。 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

質問者

補足 2002/04/12 09:15

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

ログインすると、全ての回答が全文表示されます。