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