Wit uitprinten? en zwart de tekst zien op de computer?

[robertyerseke]

Hoi allemaal,

Ikwil graag weten hoe ik deze code zou kunnen activeren, ben namelijk ERG slecht met macro's.
Ik heb het geprobeert, maar hij geeft een error aan bij my styles, maar heb deze opmaak al toegevoegd dus?? :S
Ikheb het nodig om Zwarte tekst wit uit te printen (oftewel gewoon te laten verdwijnen)
Een andere optie zou ook ERG handig zijn


(ik kwam via via aan deze macro)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
Cancel = True
Me.Styles(”PrintWhite”).Font.Color = vbWhite
ActiveWindow.SelectedSheets.PrintOut
Me.Styles(”PrintWhite”).Font.ColorIndex = xlColorIndexAutomatic
Application.EnableEvents = True
End Sub

Alvast bedankt,
Groeten
Robert

 

[Warme bakkertje]

Robert, het Me-statement wordt gebruikt voor formulieren. Vervang beide Me's door ActiveWorkbook en je probleem zou opgelost moeten zijn

Mvg

Rudi

 

[robertyerseke]

dankje voor de tip, ik probeer hem morgen op het werk even uit, moet vanavond ookweer werke voor de verandering :S

Aardig voor de tip, verdere Excelvragen kan ik missgien wel beantwoorden, ikzie zoveel formulieren dat ik er gek van wordt

Groeten,
Robert

 

[WimenBeer]

dankje voor de tip, ik probeer hem morgen op het werk even uit, moet vanavond ookweer werke voor de verandering :S

Aardig voor de tip, verdere Excelvragen kan ik missgien wel beantwoorden, ikzie zoveel formulieren dat ik er gek van wordt

Groeten,
Robert

Welcom to the club

 

[robertyerseke]

wat is daar de combinatie van letters voor active workbook? :$
sorry voor de knuddige vraag

 

[robertyerseke]

En graag zou ik alleen bepaalde cellen wit uitprinten en niet allemaal

 

[robertyerseke]

Welcom to the club

hey wimenbeer,

Weetjij misschien hoe je uitprint exclusief bepaalde cellen?

 

[Warme bakkertje]

Robert, Maak een opmaakprofiel (bv PrintWhite)waarbij je de tekstkleur wit maakt. Volgende macro past dit profiel dan toe op je geselecteerd bereik, print de pagina af en zet daarna het profiel terug normaal op je geselecteerde bereik.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Application.EnableEvents = False
    Range("A1:B2,D1:E2,G1:H2,J1:K2").Select
    Selection.Style = "PrintWhite"
    ActiveSheet.PrintOut
    Range("A1:B2,D1:E2,G1:H2,J1:K2").Select
    Selection.Style = "Normal"
    Application.EnableEvents = True
End Sub

Mvg

Rudi

 

[robertyerseke]

heb ik gedaan, nu moet ik het Onzichtbaar of doorzichtig uit laten printen, want het formulier is namelijk NIET wit

 

[Warme bakkertje]

Robert, post eens een voorbeeldbestandje en kleur de cellen die niet afgeprint mogen worden, want nu is het raden.(97-2003 versie)

Mvg

Rudi

 

[robertyerseke]

heb ze geel gemaakt,
zoals je kunt zien, zoals bij de bovenste kan evt. ook, maar ikwil het liefst dat ze 'gewoon' niet uitgeprint worden. Help Please

Mvg,
Robert

 

[Roncancio]

Ik heb het bestand aangepast met een togglebutton.

Met vriendelijke groet,


Roncancio

 

[robertyerseke]

Dankjewel
ERG handig dankjewel,:thumb::thumb::thumb::thumb:
Kan je ook iets instellen dat de cellen gewoon onzichtbaar worden (wanneer ik op rood papier print dat ze niet naar voor komen?)

Print hij de button trouwens niet?
en waar haal je die vandaan?

Mvg,
Robert

 

[Roncancio]

Of de button geprint moet worden of niet is een kwestie van eigenschappen instellen.
De knop is een onderdeel van Werkset Besturingselementen.
Wat je volgens mij beter kan doen is een printknop maken die de eigenschappen van de cellen aanpast voor het printen.
Ik was nog vergeten te vertellen dat ik de gele cellen heb benoemd zodat je steeds naar ze kan refereren.

Sub Printen
    Range("Witlaten").Font.Color = vbRed
    ActiveSheet.PrintOut
End Sub

Bovenstaande macro heet printen en zet de tekst het bereik Witlaten (= gele cellen van je bestand) in het rood.
Vervolgens wordt het werkblad uitgeprint.

Met vriendelijke groet,


Roncancio

 

[robertyerseke]

je andere Met button werkt ONTZAGLIJK GOED!!!!
Wist je dat excel WITTE CELLEN NIET PRINT??
Heeeel erg handig is dat voor mij :thumb::thumb:
Kun je NOG meer???

 

[Roncancio]

je andere Met button werkt ONTZAGLIJK GOED!!!!
Wist je dat excel WITTE CELLEN NIET PRINT??
Heeeel erg handig is dat voor mij :thumb::thumb:
Kun je NOG meer???

Zoals wat, je stageopdracht maken?

Met vriendelijke groet,


Roncancio

 

[robertyerseke]

Zoals wat, je stageopdracht maken?

Met vriendelijke groet,


Roncancio

Bijvoorbeeld

en deze met knoppie toevoege? :shocked:
(zie bijlage)

 

[Roncancio]

Helaas kan ik je niet helpen met het maken van je stageopdracht.

Ik heb wel de knoppen aan het bestand toegevoegd.

Met vriendelijke groet,


Roncancio

 

[robertyerseke]

Helaas kan ik je niet helpen met het maken van je stageopdracht.

Ik heb wel de knoppen aan het bestand toegevoegd.

Met vriendelijke groet,


Roncancio

Wat als ik me stageverslag even mail?
Joh, als ik met iets kan helpen, laat het even weten (al is het maar wat werk uit handen nemen
Hartelijk bedankt voor je hulp!
:thumb:

 

[robertyerseke]

Helaas kan ik je niet helpen met het maken van je stageopdracht.

Ik heb wel de knoppen aan het bestand toegevoegd.

Met vriendelijke groet,


Roncancio

Hey, kunje een knop erin plakken die wanneer ik op afdrukken duw de tekst laat verdwijnen, en wanneer het afgedrukt is weer terugkomt (of dat het na 5 min. terugkomt?)