|
>はどのような意味
GET.DOCUMENT というのは Excel4マクロ関数といって、VBAが実装される前の
Excel4.0でVBAのような処理をしていた関数の一つです。その後 5.0にバージョン
アップされるとき、初めてVBAが実装されて殆ど使う機会がなくなりましたが、
ものによってはVBAより簡単な記述で、たいへん便利かつ処理が高速なので
今でも使っているわけです。今回の GET.DOCUMENT関数は、引数の値を 50 とすると
アクティブシートの総ページ数を一気に取得することが出来るので、よく使います。
>MsgBoxに出すとすれば
以下のように変更するだけです。
Sub MyPrint()
Dim WS As Worksheet
Dim AllP As Integer, i As Integer
With Application
.ScreenUpdating = False
For Each WS In ActiveWindow.SelectedSheets
WS.Activate
AllP = .ExecuteExcel4Macro("Get.Document(50)")
For i = 1 To AllP
MsgBox i & " / " & AllP & " を印刷します", 64
WS.PrintOut From:=i, To:=i, Copies:=1
Next i
Next
.ScreenUpdating = True
End With
End Sub
|
|