Call function from macro using RunCode

[kledki]

I have a function tha I have written which I am trying to run from a macro using Runcode. The macro that I am trying to call the function from is the OnClick event of a command button. Basically, I want to print a different page of my reort dependent upon the value in the text control "Text28." But when I press the button, the code is function is not running and I can't figure out why. Any suggestions would be very much appreciated! Here is what I have for the function:

Public Function PrintOut()
    If Text28 = "aaa" Then
        DoCmd.PrintOut acPages, 2, 2, , 1
    ElseIf Text28 = "bbb" Then
        DoCmd.PrintOut acPages, 3, 3, , 1
    ElseIf Text28 = "ccc" Then
        DoCmd.PrintOut acPages, 4, 4, , 1
    ElseIf Text28 = "ddd" Then
        DoCmd.PrintOut acPages, 5, 5, , 1
End If
End Function

[Nauticalgent]

I noticed that the function you posted is public. Is it in a separate module than the form that has the command button?

If so, you will need to pass an argument to the function, in this case the value of Text28. Depending on your answer, I have some suggestion to make your code more efficient.

[kledki]

Yes it is in a separate module

[Nauticalgent]

Try:

Public Function PrintOut(strTest As String)
    Select Case strTest
        Case "aaa"
            DoCmd.PrintOut acPages, 2, 2, , 1
        Case "bbb"
            DoCmd.PrintOut acPages, 3, 3, , 1
        Case "ccc"
            DoCmd.PrintOut acPages, 4, 4, , 1
        Case "ddd"
            DoCmd.PrintOut acPages, 5, 5, , 1
        Case Else
    End Select
End Function

Then on the OnClick() event of your button, use this code:

Call PrintOut(Me.Text28)

[kledki]

Thank you so much for your help

[Nauticalgent]

You're very welcome, happy to help.