マクロで印刷プレビュー

質問

マクロで印刷プレビューを設定したいのですが、
印刷用のシートには罫線を引いていないのですが、プレビューを
した時に、罫線を表示させることってできますか？

あと、印刷用のシートには印刷範囲が設定されているのですが、
プレビューでは印刷範囲外の文字等を表示させたいのですが、
これもマクロでできますか？

回答No.1

kenpon24

端折ってる部分が多く、このままでは動きませんがサンプルです。
適当に印刷設定範囲を"$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