Excel VBA質問箱 IV

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

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


13935 / 76734 ←次へ | 前へ→

【68299】Re:結合したセルを分割しないで印刷したい
回答  UO3  - 11/2/21(月) 14:17 -

引用なし
パスワード
   ▼アキさん さん:

こんにちは

以下のコードでお試しください。
なお、あわせて、先に申し上げた、不要、あるいは別の書き方ができるActivateやSelectを
なくしてあります。実行時の画面のちらつきがおさえられると思います。

Sub Sample()
' 水平方向の改ページ位置を結合セル内から外し、上に調整移動する
'----------------------
Const TargetCol = "A" ' <--- 改ページに反映させる結合のある列を指定
'----------------------
Dim Hpb As Long
Dim Rw As Long
Application.ScreenUpdating = True ' False禁止
Cells.SpecialCells(xlCellTypeLastCell).Offset(1).Activate
If HPageBreaks.Count = 0 Then Exit Sub
ActiveSheet.ResetAllPageBreaks
Hpb = 1
Do Until Hpb > HPageBreaks.Count
  Rw = HPageBreaks(Hpb).Location.Row
  If Cells(Rw, TargetCol).MergeArea.Row < Rw Then
    HPageBreaks.Add before:=Cells(Rw, TargetCol).MergeArea
  End If
  Hpb = Hpb + 1
Loop
ActiveSheet.PrintOut  'Preview:=True
End Sub

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 お礼

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