setting print ranges to print based on option
 

Hi all,
I have a function that has radio boxes as a parameter selection. At
each radio box I have a macro assigned which looks similar to below
where I assign an upper row and a lower row for a range that I wish
to
print. The variable was defined as Global and as a String.

Sub RadioButtonSelection_1Example()
vrow1 = 98 'both vrow1 and vrow2 defined as global and long
vrow2 = 109
End Sub


Sub printme()
vrow1 = "A" & vrow1 'the final product will be A98 in this case
vrow2 = "A" & vrow2 'the final product will be A109 in this case
If e_agency = True Then
Range("A86:A97", "&vrow1:&vrow2").Select
Selection.PrintOut Copies:=1, Collate:=True
Else
Range("&vrow1:&vrow2").Select
Selection.PrintOut Copies:=1, Collate:=True
End If
End Sub

setting print ranges to print based on option
 

On May 1, 3:56 pm, bluegrassstateworker
wrote:
Hi all,
I have a function that has radio boxes as a parameter selection. At
each radio box I have a macro assigned which looks similar to below
where I assign an upper row and a lower row for a range that I wish
to
print. The variable was defined as Global and as a String.

Sub RadioButtonSelection_1Example()
vrow1 = 98 'both vrow1 and vrow2 defined as global and long
vrow2 = 109
End Sub

Sub printme()
vrow1 = "A" & vrow1 'the final product will be A98 in this case
vrow2 = "A" & vrow2 'the final product will be A109 in this case
If e_agency = True Then
Range("A86:A97", "&vrow1:&vrow2").Select
Selection.PrintOut Copies:=1, Collate:=True
Else
Range("&vrow1:&vrow2").Select
Selection.PrintOut Copies:=1, Collate:=True
End If
End Sub

I forgot to add that the ranges are on different worksheet (if that
makes any difference)

setting print ranges to print based on option
 

Did you state your problem?

On May 2, 9:03 am, bluegrassstateworker
wrote:
On May 1, 3:56 pm, bluegrassstateworker
wrote:





Hi all,
I have a function that has radio boxes as a parameter selection. At
each radio box I have a macro assigned which looks similar to below
where I assign an upper row and a lower row for a range that I wish
to
print. The variable was defined as Global and as a String.

Sub RadioButtonSelection_1Example()
vrow1 = 98 'both vrow1 and vrow2 defined as global and long
vrow2 = 109
End Sub

Sub printme()
vrow1 = "A" & vrow1 'the final product will be A98 in this case
vrow2 = "A" & vrow2 'the final product will be A109 in this case
If e_agency = True Then
Range("A86:A97", "&vrow1:&vrow2").Select
Selection.PrintOut Copies:=1, Collate:=True
Else
Range("&vrow1:&vrow2").Select
Selection.PrintOut Copies:=1, Collate:=True
End If
End Sub

I forgot to add that the ranges are on different worksheet (if that
makes any difference)- Hide quoted text -

- Show quoted text -

setting print ranges to print based on option
 

On May 3, 4:09 pm, Carl Hartness wrote:
Did you state your problem?

On May 2, 9:03 am, bluegrassstateworker
wrote:



On May 1, 3:56 pm, bluegrassstateworker
wrote:

Hi all,
I have a function that has radio boxes as a parameter selection. At
each radio box I have a macro assigned which looks similar to below
where I assign an upper row and a lower row for a range that I wish
to
print. The variable was defined as Global and as a String.

Sub RadioButtonSelection_1Example()
vrow1 = 98 'both vrow1 and vrow2 defined as global and long
vrow2 = 109
End Sub

Sub printme()
vrow1 = "A" & vrow1 'the final product will be A98 in this case
vrow2 = "A" & vrow2 'the final product will be A109 in this case
If e_agency = True Then
Range("A86:A97", "&vrow1:&vrow2").Select
Selection.PrintOut Copies:=1, Collate:=True
Else
Range("&vrow1:&vrow2").Select
Selection.PrintOut Copies:=1, Collate:=True
End If
End Sub

I forgot to add that the ranges are on different worksheet (if that
makes any difference)- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

I am using Excel in this case as an electronic form. My problem is
that the above syntax is not working and I am unsure of the best way
to pass a radio box selection as a print range parameter; something in
the syntax (or logic) is wrong. Here is what I would like to do: If a
radio box is checked (A checkbox would work too) then I want to have a
range printed out. If there are multiple groups checked then I want
to include them in a single printout. In this case, I have a
worksheet containing the radio buttons and the user navigates
throughout various worksheets within the workbook. When finished, a
macro runs the printing of each section and a set of instructions
based on the selections made when the workbook was opened. I havent
seen any VBA examples to draw from for guidance.

setting print ranges to print based on option
 

Debug.Print Range("&vrow1:&vrow2").Address gives an error.
Without prepending "A" to vrows, use
Debug.Print Range(Cells(vrow1, 1), Cells(vrow2, 1)).Address

The multiple range is trickier. The key is to use a string to create
the compound address:
Debug.Print Range("A86:A97", "&vrow1:&vrow2").Address gives an error.
s$ = "A86:A97," & Range(Cells(vrow1, 1), Cells(vrow2, 1)).Address
Debug.Print Range(s$).Address

Hope this helps
Carl.

On May 4, 8:00 am, bluegrassstateworker
wrote:
On May 3, 4:09 pm, Carl Hartness wrote:





Did you state your problem?

On May 2, 9:03 am, bluegrassstateworker
wrote:

On May 1, 3:56 pm, bluegrassstateworker
wrote:

Hi all,
I have a function that has radio boxes as a parameter selection. At
each radio box I have a macro assigned which looks similar to below
where I assign an upper row and a lower row for a range that I wish
to
print. The variable was defined as Global and as a String.

Sub RadioButtonSelection_1Example()
vrow1 = 98 'both vrow1 and vrow2 defined as global and long
vrow2 = 109
End Sub

Sub printme()
vrow1 = "A" & vrow1 'the final product will be A98 in this case
vrow2 = "A" & vrow2 'the final product will be A109 in this case
If e_agency = True Then
Range("A86:A97", "&vrow1:&vrow2").Select
Selection.PrintOut Copies:=1, Collate:=True
Else
Range("&vrow1:&vrow2").Select
Selection.PrintOut Copies:=1, Collate:=True
End If
End Sub

I forgot to add that the ranges are on different worksheet (if that
makes any difference)- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

I am using Excel in this case as an electronic form. My problem is
that the above syntax is not working and I am unsure of the best way
to pass a radio box selection as a print range parameter; something in
the syntax (or logic) is wrong. Here is what I would like to do: If a
radio box is checked (A checkbox would work too) then I want to have a
range printed out. If there are multiple groups checked then I want
to include them in a single printout. In this case, I have a
worksheet containing the radio buttons and the user navigates
throughout various worksheets within the workbook. When finished, a
macro runs the printing of each section and a set of instructions
based on the selections made when the workbook was opened. I havent
seen any VBA examples to draw from for guidance.- Hide quoted text -

- Show quoted text -