In the following code grpRows refers to a custom form with a frame containing
three option buttons. Each option button corresponds to a custom view. The
code works when either of the first two option buttons is chosen on the Print
command button of the form. If the third option button is chosen the code
fails and I get the message €œ€�Run Time error 5. Invalid procedure call or
argument.€� The first two custom views are on sheet 1 of the workbook while
the third custom view is on sheet 4 . What am I doing wrong here and how do
I correct this? Any help greatly appreciated.


Private Sub btnPrint_Click()

Dim myControl As Control
Dim myView

For Each myControl In grpRows.Controls
If myControl.Value = True Then
myView = myControl.Caption
Debug.Print myView
End If

Next myControl

ShowView myView

Unload Me
MsgBox "Printing"

End Sub


Sub ShowView(ViewName)
'
ActiveWorkbook.CustomViews(ViewName).Show

End Sub

Must be a problem with the button caption, and the view name. What is it?

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"JCIrish" wrote in message
...
In the following code grpRows refers to a custom form with a frame
containing
three option buttons. Each option button corresponds to a custom view. The
code works when either of the first two option buttons is chosen on the
Print
command button of the form. If the third option button is chosen the code
fails and I get the message ""Run Time error 5. Invalid procedure call or
argument." The first two custom views are on sheet 1 of the workbook
while
the third custom view is on sheet 4 . What am I doing wrong here and how
do
I correct this? Any help greatly appreciated.


Private Sub btnPrint_Click()

Dim myControl As Control
Dim myView

For Each myControl In grpRows.Controls
If myControl.Value = True Then
myView = myControl.Caption
Debug.Print myView
End If

Next myControl

ShowView myView

Unload Me
MsgBox "Printing"

End Sub


Sub ShowView(ViewName)
'
ActiveWorkbook.CustomViews(ViewName).Show

End Sub

The button caption and the view name are the same,"Credit Card Summary YTD"

"Bob Phillips" wrote:

Must be a problem with the button caption, and the view name. What is it?

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"JCIrish" wrote in message
...
In the following code grpRows refers to a custom form with a frame
containing
three option buttons. Each option button corresponds to a custom view. The
code works when either of the first two option buttons is chosen on the
Print
command button of the form. If the third option button is chosen the code
fails and I get the message ""Run Time error 5. Invalid procedure call or
argument." The first two custom views are on sheet 1 of the workbook
while
the third custom view is on sheet 4 . What am I doing wrong here and how
do
I correct this? Any help greatly appreciated.


Private Sub btnPrint_Click()

Dim myControl As Control
Dim myView

For Each myControl In grpRows.Controls
If myControl.Value = True Then
myView = myControl.Caption
Debug.Print myView
End If

Next myControl

ShowView myView

Unload Me
MsgBox "Printing"

End Sub


Sub ShowView(ViewName)
'
ActiveWorkbook.CustomViews(ViewName).Show

End Sub

Thanks, Bob. I checked that a zillion times and was baffled because they were
both the same. I just went back and cleared everything out of the caption and
reentered and it now works. Must have been an extraneous character that I
couldn't spot somewhere in there. Thanks for causing me to go back and do
what I did.

"Bob Phillips" wrote:

Must be a problem with the button caption, and the view name. What is it?

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"JCIrish" wrote in message
...
In the following code grpRows refers to a custom form with a frame
containing
three option buttons. Each option button corresponds to a custom view. The
code works when either of the first two option buttons is chosen on the
Print
command button of the form. If the third option button is chosen the code
fails and I get the message ""Run Time error 5. Invalid procedure call or
argument." The first two custom views are on sheet 1 of the workbook
while
the third custom view is on sheet 4 . What am I doing wrong here and how
do
I correct this? Any help greatly appreciated.


Private Sub btnPrint_Click()

Dim myControl As Control
Dim myView

For Each myControl In grpRows.Controls
If myControl.Value = True Then
myView = myControl.Caption
Debug.Print myView
End If

Next myControl

ShowView myView

Unload Me
MsgBox "Printing"

End Sub


Sub ShowView(ViewName)
'
ActiveWorkbook.CustomViews(ViewName).Show

End Sub