|
印刷範囲の初期化について困っております。
ご教授よろしくお願いします。
出力用シートが有り、そのシート内で印刷範囲を設定しています。
Dim lngtotalcellrow As Long 'セルの行数を取得
Dim lngTotalCellColumn As Long 'セルの列数を取得
〜〜略〜〜
''セル行数・列数を取得する
Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select
lngtotalcellrow = Selection.Rows.Count
''印刷範囲設定を行う
ActiveSheet.PageSetup.PrintArea = "$A$1:$S$" & lngtotalcellrow
〜〜略〜〜
上記の方法で印刷範囲を設定しています。
出力用シートですので、結果の出力の度に上書きをします。
そこで、100行のデータを出力した後100行未満のデータを出力すると、
100行未満のデータであるにも関わらず、100行まで印刷範囲に
設定されてしまいます。
上書き処理前の、
Cells.Select
Selection.PageSetup.PrintArea = ""
Selection.Delete Shift:=xlUp
Selection.Clear
など、試してみましたが終端位置のクリアは出来ませんでした。
よろしくお願いします。
|
|