| 投稿日 | ： 2004/07/08(Thu) 18:10 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: EXCELのプレビューで印刷したかどうかの判断をしたい |
> EXCELのプレビュー画面でのボタン押下のイベントが拾えないかな、などと
> 安直に考えていたもので
ボタンをクリックするより難しいでしょうね！
後は、試していませんが、Workbook_BeforePrint イベントをうまく利用すれば
いけるかも知れません。下記のような感じでどうでしょう
# 必要事項は別途宣言して置いて下さい。
Private Sub Command1_Click()
'印刷プレビューの開始フラグ
PreviewOn = -1 '印刷プレビューも印刷としてイベントが発生するので
xlApp.ActiveWindow.SelectedSheets.PrintPreview
End Sub
'ExcelのイベントをVBから取得 （詳しくは過去のログに）
Private Sub xlApp_WorkbookBeforePrint(ByVal Wbook As Excel.Workbook, _
Cancel As Boolean)
PreviewOn = PreviewOn + 1
'印刷プレビューのイベントを除く
If PreviewOn = 1 Then
MsgBox "印刷されました"
PreviewOn = 0
End If
End Sub