Printing Selections from four sheets

  • Thread starter Thread starter Donna Brooks
  • Start date Start date
D

Donna Brooks

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
 
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
 
Back
Top