Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13952 / 76738 ←次へ | 前へ→

【68286】結合したセルを分割しないで印刷したい
質問  アキさん  - 11/2/20(日) 19:56 -

引用なし
パスワード
   エクセルのA列を結合しています。
結合しているセル数はまちまちで2行であったり6行であったりです。

この状態で印刷すると結合したセルがページを分割され印刷されます。
なので、マクロで結合セルを分割しないで印刷できる方法をネットで検索し、以下のマクロを見つけました。

Sub 行結合対応改頁位置調整印刷()
' 水平方向の改ページ位置を結合セル内から外し、上に調整移動する
'----------------------
Const TargetCol = "A" ' <--- 改ページに反映させる結合のある列を指定
'----------------------
Dim Rng As Range
Dim Hpb As Long
Dim Rw As Long
Application.ScreenUpdating = True ' False禁止
Set Rng = Cells.SpecialCells(xlCellTypeLastCell).Offset(1)
Rng.Activate
If HPageBreaks.Count = 0 Then Exit Sub
ActiveSheet.ResetAllPageBreaks
For Hpb = 1 To HPageBreaks.Count
  Rng.Activate
  Rw = HPageBreaks(Hpb).Location.Row
  Cells(Rw, Range(TargetCol & 1).Column).Activate
  If Selection.Row < Rw Then
    HPageBreaks.Add Before:=ActiveCell
  End If
Next Hpb
Range("A1").Activate
ActiveSheet.PrintOut  'Preview:=True
Set Rng = Nothing
End Sub


このマクロを入力したのですが、ページの最初の方はうまく分割され印刷されますがページ後半になると、分割されてしまいます。

最終ページまで結合セルが分割されないで印刷するにはどうすれば良いのでしょうか?

ちなみに、作成している表はページ分割しないで印刷した場合、20ページほどになります。

宜しくお願いします。

0 hits

【68286】結合したセルを分割しないで印刷したい アキさん 11/2/20(日) 19:56 質問
【68287】Re:結合したセルを分割しないで印刷したい かみちゃん 11/2/20(日) 20:18 発言
【68288】Re:結合したセルを分割しないで印刷したい UO3 11/2/20(日) 20:41 発言
【68289】Re:結合したセルを分割しないで印刷したい ichinose 11/2/20(日) 20:55 発言
【68290】Re:結合したセルを分割しないで印刷したい UO3 11/2/20(日) 21:08 回答
【68294】Re:結合したセルを分割しないで印刷したい アキさん 11/2/21(月) 11:51 発言
【68295】【補足】Re:結合したセルを分割しないで印... アキさん 11/2/21(月) 11:56 発言
【68297】Re:結合したセルを分割しないで印刷したい UO3 11/2/21(月) 12:21 発言
【68298】Re:結合したセルを分割しないで印刷したい UO3 11/2/21(月) 14:07 発言
【68299】Re:結合したセルを分割しないで印刷したい UO3 11/2/21(月) 14:17 回答
【68304】Re:結合したセルを分割しないで印刷したい アキさん 11/2/22(火) 8:48 お礼

13952 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free