質問: マクロで印刷プレビュー マクロで印刷プレビューを設定したいのですが、 印刷用のシートには罫線を引いていないのですが、プレビューを した時に、罫線を表示させることってできますか? あと、印刷用のシートには印刷範囲が設定されているのですが、 プレビューでは印刷範囲外の文字等を表示させたいのですが、 これもマクロでできますか?
回答: 端折ってる部分が多く、このままでは動きませんがサンプルです。 適当に印刷設定範囲を"$a$1:$j$50"とかにしてます 現在の印刷設定と罫線情報を覚えて、設定したいように設定し、 印刷プレビューを表示します。 印刷プレビューを閉じたら、以降のマクロを実行し、設定を元に戻します。 sub xxxx() dim nowprintarea as string dim nowborders as borders '現在の印刷範囲を覚える nowprintarea = activesheet.pagesetup.printarea '設定したい印刷範囲を文字列で指定する activesheet.pagesetup.printarea = "$a$1:$j$50" '現在の罫線を覚える set nowborders = range("$a$1:$j$50").borders '罫線を引く ここは自動記録など使って引きたい罫線をどうぞ with range("$a$1:$j$50").borders(xldiagonaldown) .linestyle = xlcontinuous .weight = xlmedium end with . . . '罫線終了 '印刷プレビュー activewindow.selectedsheets.printpreview '---プレビューを閉じたら実行される部分---- '印刷範囲を元に戻す activesheet.pagesetup.printarea = nowprintarea '罫線を元に戻す 消したい場合はただlinestyleをxlnoneなどにする with range("$a$1:$j$50").borders(xldiagonaldown) .linestyle = nowborders(xldiagonaldown).linestyle .weight = nowborders(xldiagonaldown).weight end with . . . end sub