is it possible to have this code apply to all sheets following. I have been
able to create the sheets easily now to print. I use the amount code on other
print applications. If these sheets need to be printed all will be needed
Sheets are by NBR 1-9. The enclosed code has print amount (') out.
Heres Hoping Thanks

Private Sub OptionButton36_Click()
'Worksheets("Layout").Select
'With Sheets("Layout")
'.pagesetup.PrintArea = "A1" & Cells(Rows.Count, "B").End(xlUp).Row
' pCnt = Application.InputBox("How Many Copies from 1-9", Type:=1)
' If pCnt < 1 Or pCnt > 9 Then Exit Sub
' ActiveWindow.SelectedSheets.PrintOut Copies:=pCnt, Collate:=True
' .pagesetup.PrintGridlines = True
'End With
' ActiveSheet.pagesetup.PrintArea = ""
'Range("E4").Select
Worksheets("1").Select
With Sheets("1")
..pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
..PrintOut
..pagesetup.PrintArea = ""
End With
Worksheets("2").Select
With Sheets("2")
..pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
..PrintOut
..pagesetup.PrintArea = ""
End With
Worksheets("3").Select
With Sheets("3")
..pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
..PrintOut
..pagesetup.PrintArea = ""
End With
Worksheets("4").Select
With Sheets("4")
..pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
..PrintOut
..pagesetup.PrintArea = ""
End With
Worksheets("5").Select
With Sheets("5")
..pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
..PrintOut
..pagesetup.PrintArea = ""
End With
Worksheets("6").Select
With Sheets("6")
..pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
..PrintOut
..pagesetup.PrintArea = ""
End With
Worksheets("7").Select
With Sheets("7")
..pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
..PrintOut
..pagesetup.PrintArea = ""
End With
Worksheets("8").Select
With Sheets("8")
..pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
..PrintOut
..pagesetup.PrintArea = ""
End With
Worksheets("9").Select
With Sheets("9")
..pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
..PrintOut
..pagesetup.PrintArea = ""
End With
Sheets("Data").Select
Range("A4").Select
End Sub

The following code applies to all the sheets in the workbook.

Private Sub OptionButton36_Click()
Dim shtCount As Integer
Dim i As Integer
shtCount = ActiveWorkbook.Sheets.Count
For i = 1 To shtCount
If TypeName(Sheets(i)) = "Worksheet" Then
With Sheets(i)
.PageSetup.PrintArea = "a1:d" & _
.Cells(.Rows.Count, "b").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
End With
End If
Next i
End Sub

Although the question that you have asked is not quite clear. Hope this code
helps.
--
Regards,
Anant


"Curt" wrote:

> is it possible to have this code apply to all sheets following. I have been
> able to create the sheets easily now to print. I use the amount code on other
> print applications. If these sheets need to be printed all will be needed
> Sheets are by NBR 1-9. The enclosed code has print amount (') out.
> Heres Hoping Thanks
>
> Private Sub OptionButton36_Click()
> 'Worksheets("Layout").Select
> 'With Sheets("Layout")
> '.pagesetup.PrintArea = "A1" & Cells(Rows.Count, "B").End(xlUp).Row
> ' pCnt = Application.InputBox("How Many Copies from 1-9", Type:=1)
> ' If pCnt < 1 Or pCnt > 9 Then Exit Sub
> ' ActiveWindow.SelectedSheets.PrintOut Copies:=pCnt, Collate:=True
> ' .pagesetup.PrintGridlines = True
> 'End With
> ' ActiveSheet.pagesetup.PrintArea = ""
> 'Range("E4").Select
> Worksheets("1").Select
> With Sheets("1")
> .pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
> .PrintOut
> .pagesetup.PrintArea = ""
> End With
> Worksheets("2").Select
> With Sheets("2")
> .pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
> .PrintOut
> .pagesetup.PrintArea = ""
> End With
> Worksheets("3").Select
> With Sheets("3")
> .pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
> .PrintOut
> .pagesetup.PrintArea = ""
> End With
> Worksheets("4").Select
> With Sheets("4")
> .pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
> .PrintOut
> .pagesetup.PrintArea = ""
> End With
> Worksheets("5").Select
> With Sheets("5")
> .pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
> .PrintOut
> .pagesetup.PrintArea = ""
> End With
> Worksheets("6").Select
> With Sheets("6")
> .pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
> .PrintOut
> .pagesetup.PrintArea = ""
> End With
> Worksheets("7").Select
> With Sheets("7")
> .pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
> .PrintOut
> .pagesetup.PrintArea = ""
> End With
> Worksheets("8").Select
> With Sheets("8")
> .pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
> .PrintOut
> .pagesetup.PrintArea = ""
> End With
> Worksheets("9").Select
> With Sheets("9")
> .pagesetup.PrintArea = "a1:d" & Cells(Rows.Count, "b").End(xlUp).Row
> .PrintOut
> .pagesetup.PrintArea = ""
> End With
> Sheets("Data").Select
> Range("A4").Select
> End Sub
>