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