|
▼りん さん:
いつも参考にさせていただいてます。
>sicnco さん、こんにちわ
>ログの26941番の記事のツリーをお読みください。
>h t t p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=26941;id=excel
横から失礼します 上記参考に
実行してみたのですがいいえを押したときにもプリントしてしまうのですが
どういうコードをプラスすればよいですか
たとえば3枚プリント対象がある場合今回は 3/3のみ印刷でいいとします
1/3印刷します 『いいえ』
2/3印刷します 『いいえ』
3/3印刷します 『はい』
と言う具合にしたいのですがよろしくお願いします。
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 & " を印刷します", 4
WS.PrintOut From:=i, To:=i, Copies:=1
Next i
Next
.ScreenUpdating = True
End With
End Sub
|
|