非常感谢你的回答!但是我不会弄？
请问怎么弄成子过程活函数？
又怎么调用？
我的代码大致是：
Private Sub 打印色卡AB_Click()
Dim i As Single
If khmc = "全德" Then
For i = 1 To yyd
DoCmd.OpenReport strKhmc, acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
Next
DoCmd.OpenReport "本厂配方卡", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
Else
If yyd = 1 Then
DoCmd.OpenReport "本厂色卡1份", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
DoCmd.OpenReport "本厂配方卡", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
ElseIf yyd = 2 Then
DoCmd.OpenReport "本厂色卡", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
ElseIf yyd = 3 Then
DoCmd.OpenReport "本厂色卡", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
DoCmd.OpenReport "本厂色卡1份", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
ElseIf yyd = 4 Then
DoCmd.OpenReport "本厂色卡", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
DoCmd.OpenReport "本厂色卡2份", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
ElseIf yyd = 5 Then
DoCmd.OpenReport "本厂色卡", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
DoCmd.OpenReport "本厂色卡2份", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
DoCmd.OpenReport "本厂色卡1份", acViewNormal, , "[sehao]=Forms![dbo_Master]![sehao]"
End If
End If
sehao.SetFocus
End Sub
