印刷 印刷不可能にする

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][印刷 印刷不可能にする]
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'*******************************************************************************
'印刷不可能にする
'*******************************************************************************
Dim tit As String, sty As Byte, str As String
Dim msg As Variant
    Cancel = True
    tit = "Not Print!"
    sty = vbExclamation
    str = "印刷出来ません"
    msg = MsgBox(str, sty, tit)
End Sub





Production Japan Import Application. Since 1998