エクセル2002で印刷マクロを作成する方法

2006/04/23 11:28

このQ&Aのポイント

エクセル2002でマクロを作成しようとしていますが、エラーが発生しています。マクロの内容は、A1:B40を選択し、垂直・水平方向に配置し、123%拡大して印刷するというものです。エラーコード「実行時エラー '9': インデックスが有効範囲にありません」が表示されています。原因を教えていただけると助かります。
エクセル2002で作成した印刷マクロがエラーで動作しない問題について相談です。マクロの記録を新しく作成し、マクロコードには手を加えていません。マクロの内容は、A1:B40を範囲選択し、垂直・水平方向に配置し、123%拡大して印刷するというものです。しかし、実行時エラー「インデックスが有効範囲にありません」と表示されます。何が原因でエラーが発生しているのか教えてください。
エクセル2002で印刷マクロを作成したのですが、エラーが出て動作しません。新しいマクロの記録機能を使用して作成したマクロで、A1:B40を範囲選択し、垂直・水平方向に配置し、123%拡大して印刷するという内容です。エラーメッセージ「実行時エラー '9': インデックスが有効範囲にありません」と表示されています。原因がわからないので、教えていただけると助かります。

momonagon
お礼率75% (292/387)

Windows XP
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

imogasi
ベストアンサー率27% (4737/17070)

2006/04/23 12:33 回答No.1

●現シートで改ページの存在の有無ワークシートの標準画面で見て、点線の垂直の線で改ページの１番目がありますか。表示ー改ページプレビューで見て濃い縦線がありますか。（入れるには改プレビュー画面で同一列のセルを複数を範囲指定し、挿入ー改ページ） VPageBreaksは列に関したの改ページですが、普通はHPageBreaksの行を分けた改ページが多い気がしますが、良いですか。 Sub test02() MsgBox ActiveSheet.VPageBreaks.Count For i = 1 To ActiveSheet.VPageBreaks.Count MsgBox ActiveSheet.VPageBreaks(i).Location.Address 'Column Next i End Sub を実行しますと垂直改ページの数と位置がわかります。 ●DragOff Direction 使ったことないが、改ページ線を引っ張って設定するのでしょうか。普通は ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=R.Cells(i,ｊ) とするので、そのようにしてみてはどうでしょう。

質問者

お礼 2006/05/05 14:37

大変参考になりました！時間がかかりましたが、解決できました！どうもありがとうございました。

質問者

補足 2006/04/23 15:11

imogasi様、ご回答大変ありがとうございます！！ VisualBasicには明るくないので、改ページの取り消しとDragOff Direction記述を消しました。すると、エラーが出なくなりました！！しかし、印刷プレビューでストップしてしまいます。マクロ実行のみで出力されるようにすることは可能ですよねえ・・？度々すみませんが、お願いいたします。