zichtbare cellen niet printen?

[Visiplan]

Simpele vraag:

Hoe kan ik er voor zorgen dat hij bepaalde zichtbare cellen niet uitprint, kan het niet vinden onder Help, celeigenschappen, dus kan er zelf geen antwoord op vinden.

Misschien iemand simpele oplossing?

B.V.D.

 

[brandernl]

Als het steeds dezelfde cellen zijn kan je een macro schrijven, die gekoppeld is aan
Private Sub Workbook_BeforePrint(Cancel As Boolean)
iets als geef die en die cel tekstkleur wit
End Sub

Dan gevolgd door
Private Sub Workbook_BeforeClose(Cancel As Boolean)
geef de cellen weer zwarte tekstkleur
End Sub

Niet in een module maar in "This workbook"

 

[Visiplan]

Eh ja, werk nog maar sinds een paar weken met Excel en het hele macro verhaal ben ik nog helemaal niet in thuis. Of wel macro? wat is dat? snap ie, dus als er iemand een andere oplossing heeft graag, anders zal ik zien dat ik je oplossing kan verwerken in een macro.

In ieder geval bedankt voor je bijdrage.

Erwin.

 

[brandernl]

Ik weet geen eenvoudiger methode, misschien iemand anders, maar dit werkt.
Open het goede bestand in Excel.
Open de macro editor met <Alt><F11>
kijk in de linker bovenhoek in de projektverkenner en zoek een figuurtje met VBAproject(bestandsnaaM) > This Workbook.
Dubbelklik op this Workbook.
Kopieer de volgende code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1,B2,C3,D4,E5").Select 'jouw cellen hier invullen
With Selection.Font
.ColorIndex = 2 'wit
End With

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1,B2,C3,D4,E5").Select
With Selection.Font
.ColorIndex = 1 'zwart
End With
End Sub

Sluit de editor met <Alt><Q>. Als je nu print maakt de macro de tekst wit en print dan. Daarna het bestand sluiten en de tekst wordt weer zwart gemaakt.
suc6

 

[Visiplan]

Oke, macro heb ik nu aangemaakt, nu moet ik bij Range mijn cellen opgeven, het betreft de cellen AU18:AV31, hoe geef ik dit aan?

 

[brandernl]

Range("AU18:AV31")

 

[LucB]

Brandernl,

We zouden toch geen langzame code meer maken.
Maar ook hier maakt geen verschil.

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Range("A1,B2,C3,D4,E5") 'jouw cellen hier invullen
.Font.ColorIndex = 2 'wit
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Range("A1,B2,C3,D4,E5")
.Font.ColorIndex = 1 'zwart
End With
End Sub

 

[brandernl]

point taken!:thumb:

 

[Visiplan]

eh, het werkt niet.
Als ik nu ga printen dan krijg ik de melding:"eigenschap Colorindex van klasse Font kan niet worden ingesteld".
Doe ik nu iets fout of ....

 

[Visiplan]

Bernard, Luc, help?

 

[brandernl]

stuur hem eens even op, want bij werkt alles zoals het moet.
Ook op Luc z'n manier.

 

[Visiplan]

Eh, hij doet het ineens, maar nu krijg ik ze niet meer in beeld als ik geprint heb. En wil ze wel blijven zien, alleen niet uitprinten.

 

[brandernl]

Hij maakt ze weer zichtbaar als je het bestand sluit, maar we kunnen de eerste macro ook aanpassen dan maken we een andere tweede.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Range("A1,B2,C3,D4,E5") 'jouw cellen hier invullen
.Font.ColorIndex = 2 'wit
End With
Call Zwarte_Letters
End Sub

Sub Zwarte_Letters
With Range("A1,B2,C3,D4,E5")
.Font.ColorIndex = 1 'zwart
End With
End Sub

(enne... die van Private Sub Workbook_BeforeClose weggooien)

 

[Visiplan]

Eh, de vorige was dan toch beter, want nu print hij de teksten wel weer uit. Ga me er wel eerst in verdiepen, want het is een beetje lastig zo, je moet me echt alles voorkauwen en voor mij is het akadraba..

Maar in ieder geval hartstikke bedankt voor de moeite!:thumb:

 

[brandernl]

Stomme fout van mij: want voor het printen maakt ie eerst de letters wit en dan weer zwart en dan pas gaat ie printen.

Beter:
Als je gaat printen (dit gaat vanzelf)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Range("A1,B2,C3,D4,E5") 'jouw cellen hier invullen
.Font.ColorIndex = 2 'wit
End With
End Sub

Na het printen via > Extra > Macro > Macro's .... deze uitvoeren.
Sub Zwarte_Letters
With Range("A1,B2,C3,D4,E5")
.Font.ColorIndex = 1 'zwart
End With
End Sub

 

[Visiplan]

Nou doet hij het met het printen wel goed, maar na de macro na het printen geeft een fout melding, namelijk onvoldoende stackruimte. Hierbij het bestandje, ik zal wel iets helemaal fout doen!

 

[Visiplan]

eh ja, bijlage is dan wel makkelijk...

 

[brandernl]

Je hebt in de macro Zwarte_Letters niet hetzelfde bereik aangegeven.
Range("AU18:AV31")

Maar maak je het jezelf niet vreselijk moeilijk?
Bij mij zou die 1171 pagina's gaan printen.
Je kan het afdrukbereik toch zo definiëren dat die cellen, die je niet wil afdrukken er buiten vallen?

 

[Visiplan]

Heb het maar op een andere manier opgelost, gewoon de cellen die niet geprint moeten worden op een andere plaats zetten, zodat ze dus altijd buiten het afdrukbereik vallen.

Moet eerst maar eens wat meer verstand van Macro's krijgen voordat ik me met deze dingen in laat.
Op dit gebied ben ik dus nog maar een prutser.

Maar Bernard in ieder geval bedankt voor de tijd en moeite die je erin hebt gestoken om mij te helpen!
:thumb: :thumb: :thumb:

 

[brandernl]

Zo leer je wel het meest!
Prettig weekeinde!