| |
▼akko さん：
こんばんは。
よくわかりませんが、
>ページ設定にて縦(１)×横(ブランク)にしております。
これを実行すると、水平方向の改ページは0になってしまいます。
この操作のの前は下のコードは正常に作動していたとすると、
手順としては、
１. 「ファイル」---「ページ設定」にてページ設定ダイアログを表示させます。
「ページ」タブの「拡大縮小印刷」にて、
「次のページ数に合わせて印刷」を選択し、横(ブランク)ｘ縦1設定し、一度
「ＯＫ」をクリックし、ダイアログを閉じます。
２.「ファイル」---「ページ設定」にてページ設定ダイアログを再度表示させます。
「ページ」タブの「拡大縮小印刷」にて、「拡大縮小」を選択してください。
パーセンテージは変更せずに、「ＯＫ」をクリックし、ダイアログを閉じます。
３．合計行での改ページ設定を行ってください。
（尚、すでに設定してあれば２．の設定で改ページの設定が確認できます）
これで、コードを実行してみてください。
>改ページの種類を自動にしており、
>下記マクロを組みましたが動きません。
>
>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
>'
>
> '-----------------------------------------------------
> ' 合計行の下線の変更 と 改ページ後１行目名の表示
> '-----------------------------------------------------
>'
> 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
|
|
ichinose
- 06/6/8(木) 20:00 -
