Printing
 

I am trying to complete a macro that is linked to a button to print multiple
sheets from a workbook. The macro is intended to read a number from the
first sheet to determine how many sheets to print. This should be a short
program, but How would I write a for loop to access a different sheet each
time. This is what I have

For Coun = 1 To Vio_Num

Sheets("?").PageSetup.PrintArea = "$A$1:$L$45"


The ? is where I need the incementing value to go. Is this possible?

Printing
 

Sheets(Coun).PageSetup.PrintArea = "$A$1:$L$45"


--
Jim
"Brent" wrote in message
...
|I am trying to complete a macro that is linked to a button to print
multiple
| sheets from a workbook. The macro is intended to read a number from the
| first sheet to determine how many sheets to print. This should be a short
| program, but How would I write a for loop to access a different sheet each
| time. This is what I have
|
| For Coun = 1 To Vio_Num
|
| Sheets("?").PageSetup.PrintArea = "$A$1:$L$45"
|
|
| The ? is where I need the incementing value to go. Is this possible?

Printing
 

Sub AAAA()
Vio_Num = 3
For Coun = 1 To Vio_Num
Sheets(Coun).Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$45"
Next

End Sub


--
Regards,
Tom Ogilvy

"Brent" wrote in message
...
I am trying to complete a macro that is linked to a button to print
multiple
sheets from a workbook. The macro is intended to read a number from the
first sheet to determine how many sheets to print. This should be a short
program, but How would I write a for loop to access a different sheet each
time. This is what I have

For Coun = 1 To Vio_Num

Sheets("?").PageSetup.PrintArea = "$A$1:$L$45"


The ? is where I need the incementing value to go. Is this possible?

Printing
 

Thank both of you for the help.

"Tom Ogilvy" wrote:

Sub AAAA()
Vio_Num = 3
For Coun = 1 To Vio_Num
Sheets(Coun).Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$45"
Next

End Sub


--
Regards,
Tom Ogilvy

"Brent" wrote in message
...
I am trying to complete a macro that is linked to a button to print
multiple
sheets from a workbook. The macro is intended to read a number from the
first sheet to determine how many sheets to print. This should be a short
program, but How would I write a for loop to access a different sheet each
time. This is what I have

For Coun = 1 To Vio_Num

Sheets("?").PageSetup.PrintArea = "$A$1:$L$45"


The ? is where I need the incementing value to go. Is this possible?

Printing
 

Is there a way to use the command

Worksheets("Sheet?").PageSetup.PrintArea......

Where ? increments. Or some function that would print consecutive sheets
through the for loop?

Printing
 

Worksheets("Sheet" & Coun).PageSetup.PrintArea

--
Jim
"Brent" wrote in message
...
| Is there a way to use the command
|
| Worksheets("Sheet?").PageSetup.PrintArea......
|
| Where ? increments. Or some function that would print consecutive sheets
| through the for loop?