Question

怎么vba 调用带参数SUB，请赐教。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Font.Name <> "黑体" Then
在这里调用这个SUB“ Workbook_BeforePrint”怎么写？？？
End If

End Sub
Public Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True

End Sub

Answer 1

和调用没参数的过程差不多，只是多加上参数值而已。
你这里要调用的是工作簿事件过程，参数为逻辑型，所以只能用逻辑值：True 或 False，但从这过程的代码看，参数不管是什么，结果都一样。

Answer 2

在外部调用Test宏，具体参考如下：
Public Sub Test(ByRef City As String)
MsgBox (City)
City = "上海"
MsgBox (City)
End Sub

Sub bb()
Dim xx
xx = "北京"
Test (xx)
MsgBox (xx)
End Sub

Answer 3

sub Workbook_BeforePrint是过称，需要固定的事件来触发。比如此过程就是打印事件来触发。
如果你想直接调用，那么使用call命令
call Workbook_BeforePrint