|
"空白を除くセル数"の数え方は、いろいろありますが、例えば
Sub MyPrint()
Dim Cnt As Integer
Cnt = 10 - WorksheetFunction _
.CountBlank(Worksheets("A").Range("A1:A10"))
If Cnt = 0 Then Exit Sub
Worksheets("B").Range("A1:G3").PrintOut Copies:=Cnt
End Sub
とか Cnt に代入する部分のワークシート関数を
Cnt = WorksheetFunction _
.CountA(Worksheets("A").Range("A1:A10"))
とするとか、SpecialCellsメソッドを使って
Sub MyPrint2()
Dim Cnt As Integer
On Error Resume Next
Cnt = Worksheets("A").Range("A1:A10") _
.SpecialCells(2).Count
On Error GoTo 0
If Err.Number <> 0 Then Exit Sub
Worksheets("B").Range("A1:G3").PrintOut Copies:=Cnt
End Sub
などとすることも出来ます。
|
|