助けてください。EXCEL2000を使用しています。
マクロを組んでいるのですが、改ページがうまくいきません。
マクロ実行前の状態では、ページ設定で、用紙が「A3」の「縦」で拡大縮小が「79%」、データの区切りのいいところに何箇所か改ページが設定されています。
そこで、マクロを使って、A3サイズ、用紙を横、拡大縮小92%にして、尚かつ区切りのいいところ(毎回印刷範囲、区切りたいセルの位置は決まっている)で印刷できるようにしたいです。
印刷範囲は
A1:P63,A64:P126,A127:P193,A194:P237,A257:P329,
A330:P357,A368:P397,A401:P462
で設定したいです。
改ページしたい行を ひたすら
ActiveSheet.HPageBreaks.Add Before:=Range("セル番地")
で記述したのですが、
余計なところにも改ページ線ができてしまいました。(121行目の下、 351行目の下)
このいらない改ページ線は、用紙を横にして、拡大縮小を92% をした時点で、ついてしまった線のようです。
余計な改ページ線を削除したいです。
なお、マクロは自動記録しかわかっておらず、
意味がわかっていないです。
お手数ですが お分かりになる方、
わかりやすくお願いいたします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんばんは。
私は、以下の言葉をご質問で読んだ時に、
>マクロを組んでいるのですが、改ページがうまくいきません。
>余計なところにも改ページ線ができてしまいました。(121行目の下、 351行目の下)
Excel内で「A3横の標準ページ行数」と「手動改ページを入れた間(ユーザーが入れる改ページ)」の行数では、「手動改ページ」の行数のほうが大きいのではないかと、と考えました。
例えば、
「A3横」で、縦が、標準ページ行数を、62 行とします。
そして、A127:P193 というページ行数を設定したら、67行あります。
そうしたら、Excelのほうが自動改ページで189行目に入れてしまい、残りの5行が余って、その5行は次のページに追いやられてしまいます。そして、5行だけのページが出来てしまいます。
本来は、手動改ページは、189行目以下(127行 + 62行) であれば、半端なページは出来ません。それを、公開はしませんでしたが、今まで書いたことをチェックするマクロで考えていました。どうやら違ったようですが。
**
>このコードの下に、ページ設定や 改ページの記述すればよろしいのでしょうか。
改ページ挿入マクロと、全体のページ設定のコードとは、見易さや、全体の負担を考えて別々にしたらどうでしょうか?
単独に、以下のPageBreakInsert マクロでも設定できるはずです。ただし、Excel 97 では、以下のマクロは動きません。Const myPBreak As String = "・,・,・,・,・,・"
コンマ切りにして、一行で書けば、一つずつ .HPageBreaks.Add に渡してくれます。
つなぐときは、
Sub 印刷設定() '←charodesuさんの作った既存のマクロ
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
・
・
Call PageBreakInsert '最後にこう書けば、次のマクロに飛びます。
End Sub
'--------------------------------------------------------
'<標準モジュール>
Sub PageBreakInsert()
Dim myPBreaks As Variant, i As Long
'ユーザーの改行ページ設定
Const myPBreak As String = "A64,A127,A194,A238,A330,A358,A398,A463"
'ページブレイクの配列作成
myPBreaks = Split(myPBreak, ",")
With ActiveSheet
For i = LBound(myPBreaks) To UBound(myPBreaks)
.HPageBreaks.Add .Range(myPBreaks(i))
Next i
End With
End Sub
'--------------------------------------------------------
p.s. #2 のSub PrintSettingTest2() は、没にしてください。
この回答への補足
Wendy02さん、せっかく早く教えてくださったのに、お返事がかなり遅くなりまして申し訳ありません。
実はまだうまくいかないでおります・・・
もう 忘れちゃったよ、と言われそうですが、
よろしくお願いします。
マクロを二つ分けるとき、
>Call PageBreakInsert '最後にこう書けば、次のマクロに飛びます。
とのことですが、最初のマクロのコードの最後、End Sub の前に 入れて、実行すると、
エラーが出てしまいます。
その他必要な コードはありますでしょうか?
初歩的な質問で申し訳ありません。
No.2
- 回答日時:
#1 の方のご説明で、出来たのですか?
PrintSettingTest1 は、出さないことにします。
私が、ふと心配に感じたのは、ページの物理的限界を超えて、1ページを設定させることは不可能だと思ったから、一旦、標準ページ行数を取り出して、それで範囲をチェックすることを考えましたが、取り越し苦労のようです。
Sub PrintSettingTest2()
Dim myPagesArray As Variant, i As Long
Dim strRng As String
'ユーザーのページ設定
Const myPages As String = "A1:P63,A64:P126,A127:P193,A194:P237,A257:P329,A330:P357,A368:P397,A401:P462"
With ActiveSheet
If InStr(myPages, ":") = 0 Then
MsgBox "1つ以上のセルを記述してください。", vbCritical
Exit Sub
End If
'ページの配列作成
myPagesArray = Split(myPages, ",")
.PageSetup.PrintArea = ""
For i = LBound(myPagesArray) To UBound(myPagesArray)
strRng = Mid$(myPagesArray(i), InStr(myPagesArray(i), ":") + 1)
.HPageBreaks.Add .Range(strRng)
Next i
End With
End Sub
この回答への補足
回答ありがとうございます。
一応、No1さん のやり方で、できたのですが、
問題はありますでしょうか。
すみません。あまり意味がわかっていません・・・
Wendy02さん のやり方の方も 試してみたいのですが、上記の コードを コピーペーストして大丈夫ですか?(VBAがわかっていません)
ちなみに 上記のコードだけを マクロとして記述したら、改ページが一切なしの 一枚 として仕上がりました。
このコードの下に、ページ設定や 改ページの記述すればよろしいのでしょうか。
しかし、それをやってみたところ、マクロがうまく実行できなくてエラーになりました。
たびたび申し訳ございませんが、教えてください。
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = _
"$A$1:$P$237,$A$257:$P$357,$A$368:$P$397,$A$401:$P$462"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.78740157480315)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0.078740157480315)
.FooterMargin = Application.InchesToPoints(0.15748031496063)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 92
ActiveSheet.HPageBreaks.Add Before:=Range("A64")
ActiveSheet.HPageBreaks.Add Before:=Range("A127")
ActiveSheet.HPageBreaks.Add Before:=Range("A194")
ActiveSheet.HPageBreaks.Add Before:=Range("A238")
ActiveSheet.HPageBreaks.Add Before:=Range("A330")
ActiveSheet.HPageBreaks.Add Before:=Range("A358")
ActiveSheet.HPageBreaks.Add Before:=Range("A398")
ActiveSheet.HPageBreaks.Add Before:=Range("A463")
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ExcelVBA Range クラスの PageBreak プロパティを設定できません。
Visual Basic(VBA)
-
ExcelVBA 改ページの横破線を消す方法
Excel(エクセル)
-
Excelで特定の文字のところで自動的に改ページしたい
Excel(エクセル)
-
-
4
エクセル VBA 水平改ページ位置の変更方法について教えてください。
Excel(エクセル)
-
5
Excelで特定の文字・記号のところで自動的に改ページしたい
Excel(エクセル)
-
6
PageBreak プロパティを設定できません。
Visual Basic(VBA)
-
7
EXCEL、マクロ-改ページ行番号の取得方法を教えてください
Visual Basic(VBA)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
UserForm1.Showでエラーになります。
工学
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
VBAの改ページ設定について
Visual Basic(VBA)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
VBAでの改ページ位置の変更
Excel(エクセル)
-
15
EXCEL VBAでHPageBreaks
Excel(エクセル)
-
16
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
17
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
18
vbaで指定したセルより下の行を指定する方法について vbaの質問です。 例えば、「C6」セルより下
Excel(エクセル)
-
19
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
20
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
メッセージボックスのOKボタ...
-
エクセルで特定の列が0表示の場...
-
一つのTeratermのマクロで複数...
-
エクセルに張り付けた写真のフ...
-
特定文字のある行の前に空白行...
-
Excel マクロでShearePoint先の...
-
TERA TERMを隠す方法
-
ExcelのVBA。public変数の値が...
-
マクロ実行時、ユーザーフォー...
-
wordを起動した際に特定のペー...
-
マクロで空白セルを詰めて別シ...
-
ExcelVBAでPDFを閉じるソース
-
Excelで大量のデータを規則的に...
-
エクセルで別のセルにあるふり...
-
エクセルのマクロをセルの値に...
-
ダブルクリックで貼り付けた画...
-
VC++ 2008 EXPRESS "_T"識別子...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
Excel VBAからAccessマクロを実...
-
Excel マクロでShearePoint先の...
-
特定文字のある行の前に空白行...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
wordを起動した際に特定のペー...
-
マクロ実行時、ユーザーフォー...
-
ExcelVBAでPDFを閉じるソース
-
【EXCEL VBA】オートシェイプを...
-
Excel_マクロ_現在開いているシ...
-
EXCELマクロでのThisisWor...
-
ソース内の行末に\\
おすすめ情報