View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jim Rech Jim Rech is offline
external usenet poster
 
Posts: 2,718
Default force print of another sheet

I'd suggest a little code. Go to the ThisWorkbook module of the workbook in
the VBE and paste this in. Modify the worksheet names as needed.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Resp As Integer
If ActiveSheet.Name = "Input" Then
Resp = MsgBox("Do you want to print the Report sheet instead of
Input?", vbYesNoCancel)
Select Case Resp
Case vbYes
Cancel = True
Application.EnableEvents = False
Worksheets("Reports").PrintOut
Application.EnableEvents = True
Case vbCancel
Cancel = True
End Select
End If
End Sub


--
Jim
"Graham Y" wrote in message
...
I have a dumb user who keeps forgetting to change from the input sheet to
the
report before doing File Print. Is there anyway I can set the menu to
print a
range on the other sheet?
Can I do this without writing any code?
If not can I change the default action of a menu item, or do I remove it
and
then replaceit withj my own code? But if I do thatthen I have to also
write
code to swap between std and my menu.
It'll be easier to put a button on the sheet, which is quite straight
forward as Ihave frozen panes.