I have an excel sheet that I use for accounting and I make a shop copy for
workers to build from. I have a BeforePrint procedure that lets the user
determine if the printing is for a "shop copy" or "office copy". I currently
have script that erases or inserts dollar values in certain cells depending
on which copy is selected. (Shop-no values, office-dollar values). My issue
is that I would like the sheet to end up with the values it had prior to
printing. I could not find any info in the help file on an AfterPrint sub. I
tried to do a print area alteration for each copy but the cells that need to
be hidden are in the middle of the sheet and the print area then split the
single sheet into 2 printed sheet. Does anyone have any suggestions on how to
do this? Any help would be appreciated.

Jcanyoneer,


workbook_beforeprint(cancel as boolean)
application.enableevents = false
cancel = true
'enter code here to choose and place desired values'
activesheet.printout 'you can lookup printout in help to see all the
setting you can change
'enter code here to replace values with originals
application.enableevents = true
end sub





"JCanyoneer" wrote:

I have an excel sheet that I use for accounting and I make a shop copy for
workers to build from. I have a BeforePrint procedure that lets the user
determine if the printing is for a "shop copy" or "office copy". I currently
have script that erases or inserts dollar values in certain cells depending
on which copy is selected. (Shop-no values, office-dollar values). My issue
is that I would like the sheet to end up with the values it had prior to
printing. I could not find any info in the help file on an AfterPrint sub. I
tried to do a print area alteration for each copy but the cells that need to
be hidden are in the middle of the sheet and the print area then split the
single sheet into 2 printed sheet. Does anyone have any suggestions on how to
do this? Any help would be appreciated.

Kinda simple when you know the stuff, huh! Thank you. it works perfect!

"ben" wrote:

Jcanyoneer,


workbook_beforeprint(cancel as boolean)
application.enableevents = false
cancel = true
'enter code here to choose and place desired values'
activesheet.printout 'you can lookup printout in help to see all the
setting you can change
'enter code here to replace values with originals
application.enableevents = true
end sub





"JCanyoneer" wrote:

I have an excel sheet that I use for accounting and I make a shop copy for
workers to build from. I have a BeforePrint procedure that lets the user
determine if the printing is for a "shop copy" or "office copy". I currently
have script that erases or inserts dollar values in certain cells depending
on which copy is selected. (Shop-no values, office-dollar values). My issue
is that I would like the sheet to end up with the values it had prior to
printing. I could not find any info in the help file on an AfterPrint sub. I
tried to do a print area alteration for each copy but the cells that need to
be hidden are in the middle of the sheet and the print area then split the
single sheet into 2 printed sheet. Does anyone have any suggestions on how to
do this? Any help would be appreciated.