Printing Selections from four sheets
 

I am trying to select data from four sheets and print the
selection. Here is the code I am trying to use. Even if I
take out the print code, the problem seems to be with
selecting anything on the second sheet, no matter which
sheet I make second. Could someone please tell me what
the problem is with my code?

Private Sub cmdPrintQtrReport_Click()
Application.ScreenUpdating = False
Sheets("DHS-Qtr").Visible = True
Sheets("DT-Qtr").Visible = True
Sheets("School-Qtr").Visible = True
Sheets("Parent-Qtr").Visible = True
Sheets("DHS-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PrintOut
Range("A1").Select
Sheets("DT-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Print
Range("A1").Select
Sheets("School-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PrintOut
Range("A1").Select
Sheets("Parent-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PrintOut
Range("A1").Select
Sheets("DHS-Qtr").Select
Range("A1").Select
Application.ScreenUpdating = True

End Sub

Thanks in advance,
Donna Brooks

Printing Selections from four sheets
 

Try this without selecting

Private Sub cmdPrintQtrReport_Click()
Application.ScreenUpdating = False

Sheets("DHS-Qtr").Visible = True
Sheets("DT-Qtr").Visible = True
Sheets("School-Qtr").Visible = True
Sheets("Parent-Qtr").Visible = True

Sheets("DHS-Qtr").Range("A1").CurrentRegion.PrintOut
Sheets("DT-Qtr").Range("A1").CurrentRegion.PrintOut
Sheets("School-Qtr").Range("A1").CurrentRegion.PrintOut
Sheets("DHS-Qtr").Range("A1").CurrentRegion.PrintOut
Application.ScreenUpdating = True
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Donna Brooks" wrote in message ...
I am trying to select data from four sheets and print the
selection. Here is the code I am trying to use. Even if I
take out the print code, the problem seems to be with
selecting anything on the second sheet, no matter which
sheet I make second. Could someone please tell me what
the problem is with my code?

Private Sub cmdPrintQtrReport_Click()
Application.ScreenUpdating = False
Sheets("DHS-Qtr").Visible = True
Sheets("DT-Qtr").Visible = True
Sheets("School-Qtr").Visible = True
Sheets("Parent-Qtr").Visible = True
Sheets("DHS-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PrintOut
Range("A1").Select
Sheets("DT-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Print
Range("A1").Select
Sheets("School-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PrintOut
Range("A1").Select
Sheets("Parent-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PrintOut
Range("A1").Select
Sheets("DHS-Qtr").Select
Range("A1").Select
Application.ScreenUpdating = True

End Sub

Thanks in advance,
Donna Brooks

Printing Selections from four sheets
 

Hi,


Try to change selection.print
to
Activesheet.PrintOut Copies:=1

Abdul Salam



-----Original Message-----
I am trying to select data from four sheets and print
the
selection. Here is the code I am trying to use. Even if
I
take out the print code, the problem seems to be with
selecting anything on the second sheet, no matter which
sheet I make second. Could someone please tell me what
the problem is with my code?

Private Sub cmdPrintQtrReport_Click()
Application.ScreenUpdating = False
Sheets("DHS-Qtr").Visible = True
Sheets("DT-Qtr").Visible = True
Sheets("School-Qtr").Visible = True
Sheets("Parent-Qtr").Visible = True
Sheets("DHS-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PrintOut
Range("A1").Select
Sheets("DT-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Print
Range("A1").Select
Sheets("School-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PrintOut
Range("A1").Select
Sheets("Parent-Qtr").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PrintOut
Range("A1").Select
Sheets("DHS-Qtr").Select
Range("A1").Select
Application.ScreenUpdating = True

End Sub

Thanks in advance,
Donna Brooks
.