How To Remove Background Color When Printing

Clear Groundwork Color Before Print

• sujittalukder
• Jun 12th 2007
• Closed

• • #1

  I take a excel file wherein background color likewise as conditional formatting background color is used. However, since printout consumes huge ink for those sheets, i want that earlier print the lawmaking will articulate all the background colour (done through Fill colour & conditional formatting color) and after the impress action, restore those color. the colors are given to faciliate data entry and better presentation.i have recorded the same merely groundwork is not restored when I run the code And also sometimes the code doesnot start printing. whatsoever help!

• • #ii

  Re: Clear Background Color Earlier Impress

  The Sail tab of Folio Ready-upwards has a Impress Black & White option.

• • #three

  Re: Clear Background Colour Before Print

  But this will likewise consume ink equally!

• • #4

  Re: Articulate Background Color Earlier Print

  I idea at that place was an option to "Not print background graphics", but I retrieve this might have been in MS Word or something similar.

  In that location is no like shooting fish in a barrel way around this to be honest except to cycle through each cell in the worksheet and record its fill up colour and conditional format earlier printing, fix information technology blank / nothing, Impress, so go dorsum and restore them later...

  How big is the area that you are press, considering I'yard telling you now, this will be quite a slow process for large areas.

  I presume all data is on ane worksheet....?

  Ger

• • #five

  Re: Clear Groundwork Color Before Impress

  OK, I had a little think about it and came up with this....

  Take a copy of the whole worksheet.... remove the formatting from the original sheet, print the original sail, DELETE the original canvass, rename the copied canvass back to the original sheets name...

  This seems to work for me... no loops involved, and then relatively efficient.

  However, I underlined DELETE to emphasise that you need to attempt this on sample data beginning and back up the worksheet before running it in example something goes wrong.

                                                                                      Public Sub Remove_Formatting_and_Print()                                                                                                                                                                                                                                                                                                                                                            Dim Sheet_2_Print As Worksheet                                                                                                                    Dim Sheet_Name Equally String                                                                                                                                                                                                                                                                                                                                                            Application.ScreenUpdating = Faux                                                                                                                    Application.EnableEvents = False                                                                                                                    Application.DisplayAlerts = False                                                                                                                    Application.Calculation = xlManual                                                                                                                                                                                                                                                                                                                                                            Set Sheet_2_Print = ActiveSheet                                                                                                                    Sheet_Name = Sheet_2_Print.Name                                                                                                                                                                                                                                                                                                                                                            Sheet_2_Print.Copy Later on:=Worksheets(Worksheets.Count)                                                                                                                    ActiveSheet.Proper noun = "TEMPXXX"                                                                                                                    Sheet_2_Print.Activate                                                                                                                    Sheet_2_Print.Cells.FormatConditions.Delete                                                                                                                    Sheet_2_Print.Cells.Interior.ColorIndex = xlNone                                                                                                                    Sheet_2_Print.PrintOut                                                                                                                    Sheet_2_Print.Delete                                                                                                                    Worksheets("TEMPXXX").Proper name = Sheet_Name                                                                                                                                                                                                                                                                                                                                                            Fix Sheet_2_Print = Nothing                                                                                                                                                                                                                                                                                                                                                            Awarding.DisplayAlerts = True                                                                                                                    Application.ScreenUpdating = True                                                                                                                    Application.EnableEvents = True                                                                                                                    Awarding.Calculation = xlAutomatic                                                                                                                                                                                                                                                                                                                                                            End Sub                                                                              

  Display More

  Just run the Macro on the worksheet that you want to print out (ALT + F8 etc).

  Ger

• • #6

  Re: Clear Groundwork Colour Before Print

  I hope I accept written this in the right place but has anyone idea of using a checkbox or cell value to change the groundwork color. This might work with conditional formatting but not sure how this is done in vba... I do recall that I saw something like this many years agone
  Greg

  Quote from Ger Plante;365890

  OK, I had a little think about it and came up with this....

  Take a copy of the whole worksheet.... remove the formatting from the original sheet, print the original canvas, DELETE the original canvass, rename the copied sail back to the original sheets name...

  This seems to piece of work for me... no loops involved, and so relatively efficient.

  Still, I underlined DELETE to emphasise that you demand to try this on sample data first and support the worksheet earlier running it in case something goes wrong.

                                                                                                  Public Sub Remove_Formatting_and_Print()                                                                                                                                                                                                                                                                                                                                                                                                            Dim Sheet_2_Print Equally Worksheet                                                                                                                                    Dim Sheet_Name As Cord                                                                                                                                                                                                                                                                                                                                                                                                            Application.ScreenUpdating = Fake                                                                                                                                    Application.EnableEvents = False                                                                                                                                    Application.DisplayAlerts = Simulated                                                                                                                                    Application.Calculation = xlManual                                                                                                                                                                                                                                                                                                                                                                                                            Set Sheet_2_Print = ActiveSheet                                                                                                                                    Sheet_Name = Sheet_2_Print.Name                                                                                                                                                                                                                                                                                                                                                                                                            Sheet_2_Print.Copy After:=Worksheets(Worksheets.Count)                                                                                                                                    ActiveSheet.Proper name = "TEMPXXX"                                                                                                                                    Sheet_2_Print.Activate                                                                                                                                    Sheet_2_Print.Cells.FormatConditions.Delete                                                                                                                                    Sheet_2_Print.Cells.Interior.ColorIndex = xlNone                                                                                                                                    Sheet_2_Print.PrintOut                                                                                                                                    Sheet_2_Print.Delete                                                                                                                                    Worksheets("TEMPXXX").Name = Sheet_Name                                                                                                                                                                                                                                                                                                                                                                                                            Set Sheet_2_Print = Null                                                                                                                                                                                                                                                                                                                                                                                                            Application.DisplayAlerts = Truthful                                                                                                                                    Application.ScreenUpdating = True                                                                                                                                    Application.EnableEvents = True                                                                                                                                    Application.Calculation = xlAutomatic                                                                                                                                                                                                                                                                                                                                                                                                            Stop Sub                                                                                          

  Display More

  Just run the Macro on the worksheet that yous want to print out (ALT + F8 etc).

  Ger

  Display More

• • #7

  Re: Clear Background Color Before Impress

  Thanks Greg, the thread is 7 years sometime at present, so it'southward unlikely the original poster is waiting for a solution

  If you demand help with your own situation, delight start a new thread.

  Welcome to the forum!
  Cheers,
  Ger

How To Remove Background Color When Printing,

Source: https://forum.ozgrid.com/forum/index.php?thread/61667-clear-background-color-before-print/

Posted by: weatherlydepeonew1989.blogspot.com

Share this post