Problem w/ Print Macro

  • Thread starter Thread starter dgold82
  • Start date Start date
D

dgold82

I have 2 macros one for showing the print dialog (connected to a clipart
image of a printer) and the other to white out certain cells before print so
that they don't show. For some reason the print macro no longer works now
that I put in the before print macro. Any ideas? Fix? Here is my code below:

(I am running excel 2003, code below is in "thisworkbook")

Sub PrintSheet()
Application.Dialogs(xlDialogPrint).Show
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "sheet1" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
.Range("C4").Font.ColorIndex = 2
.PrintOut
.Range("C4").Font.ColorIndex = 1
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
 
The line
Cancel = True

Cancels the print job. it does not sound like that is your intention. Try
removing that line...
 
I am now officially lost. Do you have a print button on each sheet? If so
they are all attached to the same code that brings up the print dialog? Your
intention is to catch when Sheet 1 is being printed and to white out Cell C4
before the sheet is printed? Is the dialog supposed to show up twice when
sheet 1 is printed?

What is the point to bringing up the print dialog since the user could just
hit print button on the standard XL menu.
 
Seems like you mostly understand what's going on. I do have a print button on
each sheet and they are all attached to the same code that brings up the
print dialog. There is a cell on sheet1 that I wanted whited out so I added
the second set of code to do that. I now realize that I don't think I can
call up the print dialog and have that second set of code work properly.
Unless you know a way around it.

Perhaps changing the code to the quick print and making a separate button
for sheet1 might do it since it doesn't call up the dialog? Do you know how?

I didn't think you would ask, but my users can't pull up the print in the XL
menu (or 2007 ribbon) because I have disabled them by forcing full screen.
Long story.
 
Back
Top