Dag Japio,
Ik heb de printerdriver even bekeken van de Canon Pixma iP3000 en inderdaad:
kleurenfoto's kunnen alleen maar in kleur worden afgedrukt. Dat is niet zo
mooi. Ook in de handleiding is er niets over te vinden.
Ik heb een HP 930C waarbij je wel alleen zwarte inkt kunt selecteren om
grijswaarden af te drukken, dus de oplossing is: koop een HP :-)
Een goedkopere oplossing is deze twee macro's. Kopieer de volgende regels
code naar je klembord:
Sub PicsGrey()
Dim shp As Shape, ishp As InlineShape
For Each shp In ActiveDocument.Shapes
shp.PictureFormat.ColorType = msoPictureGrayscale
Next shp
For Each ishp In ActiveDocument.InlineShapes
ishp.PictureFormat.ColorType = msoPictureGrayscale
Next ishp
End Sub
Sub PicsColor()
Dim shp As Shape, ishp As InlineShape
For Each shp In ActiveDocument.Shapes
shp.PictureFormat.ColorType = msoPictureAutomatic
Next shp
For Each ishp In ActiveDocument.InlineShapes
ishp.PictureFormat.ColorType = msoPictureAutomatic
Next ishp
End Sub
Kies Extra | Macro > Nieuwe macro opnemen...
Typ Test onder 'Macronaam:'
Selecteer Normal.dot onder 'Macro opslaan in:'
Klik OK.
Klik het B-knopje op de Opmaak werkbalk, en klik dit nog een keer.
Klik op het knopje 'Opname stoppen' op de Opname stoppen-werkbalk.
Kies Extra | Macro > Macro's...
Selecteer de macro (Test) en kies Bewerken. De VBA-editor opent.
Selecteer de gehele macro (Sub Test() ... End Sub) waar nu de cursor in
staat, en plak het klembord (Ctrl-V).
Klik op het Opslaan knopje (derde van links boven in de werkbalk) om
Normal.dot op te slaan, en sluit de VBA-editor.
Kies Extra | Macro > Macro's... Selecteer je macro en klik op Uitvoeren om
hem uit te voeren.
Met Extra | Aanpassen... kan je een knopje voor de twee macro's maken:
PicsGrey toont je plaatjes in grijswaarden, en PicsColor zet de kleuren weer
terug.
Krijg je foutmeldingen, dan komt dat omdat de regels code hier in de
nieuwsgroep verkeerd worden afgebroken. Klik op foutopsporing en plak de
volgende regel achter de regel waar de fout optreedt, eventueel met een
spatie ertussen.
Succes,
Cooz
--
PS: Werkt deze oplossing voor jou en log je in via de Microsoft site, klik
dan svp even op Yes bij "Did this post answer the question?". Bedankt.
Post by JapioIk werk regelmatig met documenten met veel pagina's met grote en kleine
illustraties die in kleur zijn. Het document moet echter geheel in zwart/wit
worden geprint. Mijn printer in een Canon Pixma 3000. Als ik nu de standaard
instllingen van de printer laat staan, worden de inllustraties in kleur
geprint. Ga ik het doc. in grijswaarden printen wordt ook kleur gebruikt.
Aangezien de inkt kostbaar is wil ik voorkomen dat de illustraties in kleur
geprint worden.
Moet ik alle illustraties nu stuk voor stuk bij langs en bewerken naar
zwart/wit of is er een methode die sneller werkt. Wie helpt mij?