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
.