Achtergrondkleur in cel

[chris11]

Graag wil ik in bepaalde cellen een achtergrondkleur geven, alleen ze moeten niet meeprinten.

Ik kan de pagina niet alleen zwart-wit afdrukken omdat er wel kleuren inzitten die wel meegeprint moeten worden.

mvg

 

[neyon]

Je vraag is me niet geheel duidelijk. Kun je iets specifieker zijn?

 

[huijb]

Het zou kunnen d.m.v. een macro. Onderstaande is een voorbeeldcode.
Hier wordt cel niet opgevuld met een kleur.
Range("a1").Select
Selection.Interior.ColorIndex = xlNone
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Na het printen weer wel
Range("a1").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

 

[snabbi]

Ik denk dat je aardig in de buurt komt huijb alleen is het jammer dat je problemen hebt met welke kleur had welke cel in het scherm. Deze macro zal dit allemaal omzeilen

Sub printZonderKleur()
'de namen van de huidige sheet en de nieuwe sheet die ik zal maken
Dim huidigesheet As String
Dim nieuwesheet As String
'hier zorgen we dat de gebruiker er niets van ziet
Application.ScreenUpdating = False
'krijgen we geen melding van vind je het goed als ik de sheet verwijder
Application.DisplayAlerts = False

huidigesheet = ActiveSheet.Name
Cells.Select
Selection.Copy

Sheets.Add
nieuwesheet = ActiveSheet.Name
ActiveSheet.Paste
Application.CutCopyMode = False
'hier zorgen we voor het verdwijnen van de achtergrond
Selection.Interior.ColorIndex = xlNone
'en het printen
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets(nieuwesheet).Delete
End Sub

 

[huijb]

Geplaatst door snabbi
Ik denk dat je aardig in de buurt komt huijb alleen is het jammer dat je problemen hebt met welke kleur had welke cel in het scherm. Deze macro zal dit allemaal omzeilen

Beter. :thumb: