printen

[Justes]

Hallo,

Ik heb een print probleem, er moet 2 maal verschillend geprint worden, zie bijlage.

Gr, Justes

 

[deSmid]

Probeer deze eens in te voegen.

Sub Printblauw()
'
' Printblauw Macro
'
Range("C1332").Select
Selection.Font.ColorIndex = 2
Range("A132").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$32"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("C1332").Select
Selection.Font.ColorIndex = 0
Range("F17").Select
End Sub

Deze maakt het gebied met de bedragen wit en na het printen weer zwart.

Grt,
deSmid.

 

[deSmid]

Leuk de smilies.
Zet daarvoor in de plaats een dubbele punt.

 

[Justes]

Hallo Grt,

Helaas, het was dus tijdelijk blauw gemaakt het kost zo teveel kleurinkt.

gr, Justes

 

[deSmid]

Maakt niet uit, maak het gebied zonder kleur. Routine blijft hetzelfde.

Grt,
deSmid.

 

[deSmid]

Wat betreft die smilies, dit is in de plaats gekomen voor de dubb punt + D dus

Dan moet het werken. Hier nogmaals met de smilies uitgeschakeld.

Sub Print2()
'
' Printblauw Macro
'
Range("C1332").Select
Selection.Font.ColorIndex = 2
Range("A132").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$32"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("C1332").Select
Selection.Font.ColorIndex = 0
Range("F17").Select
End Sub

 

[Justes]

Hallo Grt,

Het lukt mij niet, ik heb het ingevoegd maar dan print hij 4 blz. uit.
Zou je het voor mij in willen voegen, bij voorbaat dank

Gr, Justes

 

[deSmid]

Hierbij

deSmid.

 

[Justes]

Hallo Grt,

Het werkt prima zo, je hebt me goed op weg geholpen,
ik heb nog wel enige aanpassingen gedaan, hij telde in D11 (het bonnummer) bij print 1 en 2 er een bij, en maakte de cellen niet leeg.
Zoals het nu is ben ik dik tevreden, al zou een knop prettiger zijn.

Nogmaals dank.

Gr, Justes

 

[deSmid]

Hallo Gr,

Maken we er toch een knop van.


Gr..t,
deSmid.

 

[Justes]

Hallo Grt,

Prima. mmar ik zie er nu nog twee.

Gr, Justes

 

[deSmid]

Hallo GR.

Ik geloof dat ik het nu even niet helemaal begrijp.
Je begint zelf met 2 knoppen. Print1 voor een normale print met de gegevens en bedragen en Prin2 voor een print zonder bedragen. Moet dit alles onder 1 knop? Als dat zo is kun je in VBA bij de eerste macro het eind weghalen en bij de andere het begin. Zo valt alles onder knop Print1.

Succes

GRoeT,
deSmid

 

[Justes]

Hallo Grt,

Nu is het helemaal naar mijn zin, in de eerste vraag vroeg ik al of het met een knop kon.
Dit was maar een onderdeeltje, er zijn in totaal 70 bladzijden.

Nogmaals dank

Gr, Justes

 

[Justes]

Hallo,

Het programma werkt prima, alleen zou ik de cellen C1331 willen beveiligen, maar dan werkt de printknop niet meer, wie weet raad.

Gr, Justes

 

[Justes]

Hallo,

C13,C31
D13,D31

Gr, Justes

 

[Justes]

Hallo,

Nogmaals, het wachtwoord is "Justes"

Gr, Justes

 

[LucB]

Justes,

Hoe draait deze.

 

[Justes]

Hallo Luc,

Wel mooi maar daarmee is mijn vraag niet opgelost, zo krijg ik een foutmelding,

Gr Justes

 

[LucB]

Justes,
In de macro staat 2x PrintPreview.
Beide keren moet dit PrintOut worden.

Heb dit nu aangepast.

 

[Justes]

Hallo Luc,

Dat had ik ook begrepen, maar de vraag was en is, hoe kan ik de cellen C13,C31 en D13,D31 beveiligen, zoals ik het nu hebt krijg ik een foutmelding.
Het wachtwoord is mnbvcxz.

Gr, Justes