|
' *************************************************
' 印刷ダイアログを開く
' *************************************************
Private Sub 印刷_Dialog_Click()
WWW.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
End Sub
' *************************************************
' 即、印刷する
' *************************************************
Private Sub 印刷_Print_Click()
WWW.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
| |