Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Printing XL Sheets name | Excel Discussion (Misc queries) | |||
How do I copy and move selections of data to other sheets? | Excel Worksheet Functions | |||
PRINTING two sheets on ONE? | Excel Discussion (Misc queries) | |||
Printing non-adjacent selections | New Users to Excel | |||
Printing selections from sheets to PDF | Excel Programming |