|
▼akko さん:
こんばんは。
よくわかりませんが、
>ページ設定にて縦(1)×横(ブランク)にしております。
これを実行すると、水平方向の改ページは0になってしまいます。
この操作のの前は下のコードは正常に作動していたとすると、
手順としては、
1. 「ファイル」---「ページ設定」にてページ設定ダイアログを表示させます。
「ページ」タブの「拡大縮小印刷」にて、
「次のページ数に合わせて印刷」を選択し、横(ブランク)x縦1設定し、一度
「OK」をクリックし、ダイアログを閉じます。
2.「ファイル」---「ページ設定」にてページ設定ダイアログを再度表示させます。
「ページ」タブの「拡大縮小印刷」にて、「拡大縮小」を選択してください。
パーセンテージは変更せずに、「OK」をクリックし、ダイアログを閉じます。
3.合計行での改ページ設定を行ってください。
(尚、すでに設定してあれば2.の設定で改ページの設定が確認できます)
これで、コードを実行してみてください。
>改ページの種類を自動にしており、
>下記マクロを組みましたが動きません。
>
>Sub test()
>
> Dim myRng As Range '
> Dim myPb As HPageBreak '
> Dim myPbRng As Range '
>
>
> For Each myPb In ActiveSheet.HPageBreaks
> Set myPbRng = Nothing
> On Error Resume Next
> Set myPbRng = Intersect(myRng, _
> myPb.Location.EntireRow.Offset(-1))
> On Error GoTo 0
>'
>
> '-----------------------------------------------------
> ' 合計行の下線の変更 と 改ページ後1行目名の表示
> '-----------------------------------------------------
>'
> If Not myPbRng Is Nothing Then
> With myPbRng.Borders(xlEdgeBottom)
> .LineStyle = xlContinuous
> .Weight = xlThin
> End With
> With myPbRng.Cells.Offset(1)
> .Font.ColorIndex = 1
> End With
> End If
> Next
>
> Cells(1, 1).Select
>End Sub
|
|