Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

294 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【7345】Re:Excelに改ページを挿入したい

nn - 06/2/21(火) 14:22 -


	引用なし

	パスワード

▼小僧さん：

早速のお返事ありがとうございます。
ためさせていただきました。

>>　　　　　　　　'↓ココで、「アプリケーション定義エラー」が発生する
>>　　　　　　　　Debug.Print Err.Description
>
>エラーが発生するのはその行で間違いありませんでしょうか。
>
>
>>　　　　　　.HPageBreaks.Add Before:=Cells(arrPgBreakRow(i), 1)
>　　　　　　　　　　　　　　　　　　　　　　　^^^^^
>Cells オブジェクトが上位のオブジェクトから参照されていないのが
>エラーの原因だと思われるのですがいかがでしょう。
>(「.」がついていませんよね)

エラーの発生箇所について間違いはないようです。
「.Cells」でなく「Cells」でも確かにセルを参照してます。
ただ、あまり良い書き方ではないと思うので　改めたいと思います。
（ありがとうございます。）

エラーが発生するのは、水平方向の自動改ページを１番下にドラッグさせた時で、間違いはないようです。
改ページを設定しようとしているデータは、えらく縦長なデータです。
ただ、自動改ページを一回、２回ドラッグさせた場合ではエラーが発生せず、
４回目、五回目あたりで発生するようので
何度も改ページをドラッグすることで１ページにおさめようとしたデータが大きくなりすぎて
エラーが発生しているかも、しれません（推測なのでまちがっているかも）

>>データが縮小されて、印刷紙の左上に小さく印刷されます。
>
>こちらについてはもう ExcelVBA の問題ですね^^
>当方も余り詳しくないので以下は外しているかもしれません。
>
>行については改ページを解除した後、再設定されていますが、
>列については解除されたままですよね。
>
>例えば 100% の状態でA～G 列までが印刷されるとしてデータが H 列まであったとすると、
>ご提示されたコードですと、縮小印刷されてしまいませんでしょうか。
>縮小して1枚に納めるか、それとも列も考慮して改ページを設けるかは
>nn さんの仕様次第だと思います。

>Private Sub setpgBreak2()
>'要参照 Microsoft Excel x.x Object Library
>Dim xlsApp As Excel.Application
>Dim xlsWkb As Excel.Workbook
>Dim aryPgBreakRow() As Variant
>Dim aryPgBreakCol() As Variant
>Dim i As Long
>Dim j As Long
>
>　　　　aryPgBreakRow = Array(10, 20, 30, 40)
>　　　　aryPgBreakCol = Array(5, 10)
>　　
>　　Set xlsApp = CreateObject("Excel.Application")
>　　Set xlsWbk = xlsApp.WorkBooks.Open("D:\test.xls")
>　　'xlsApp.Visible = True
>　　　　
>'改ページプレビュー表示
>　　xlsApp.Windows(1).View = xlPageBreakPreview
>　　　　
>　　With xlsWkb.Sheets("シート名")
>'シートのすべてを印刷範囲に設定する
>　　　　.PageSetup.PrintArea = ""
>　　
>'すべての改ページを解除
>　　　　.ResetAllPageBreaks
>　
>'改ページ設定
>　　　　For i = 0 To UBound(aryPgBreakRow)
>　　　　　　.HPageBreaks.Add Before:=.Cells(aryPgBreakRow(i), 1)
>　　　　Next
>　　　　　　
>　　　　For j = 0 To UBound(aryPgBreakCol)
>　　　　　　.VPageBreaks.Add Before:=.Cells(1, aryPgBreakCol(j))
>　　　　Next
>　　
>　　End With
>
>　　xlsWkb.Close True: Set xlsWkb = Nothing
>　　xlsApp.Quit: Set xlsApp = Nothing
>End Sub

教えていただいたコードを試してみました。

確かに　手動改ページは教えていただいたやり方で設定することができました。
（縮小率も問題ありません）
ただ、自動改ページが解除されなくて・・。

縮小率は適切に設定し、自動改ページを解除し、手動改ページを設定したい！
というのはナカナカ難しいかもしれない・・。

というかExcelの質問になってきてしまいました。（ほんとすみません）