Results 1 to 2 of 2
  1. #1
    Star Lounger
    Join Date
    Jan 2001
    Location
    UK, Surrey
    Posts
    55
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Select color / colour or B&W printing in vba macro

    I have long had macro buttons in my Word Quick Access Toolbar (and before that in menus) to allow me to quickly print a document in black and white, or in colour. Something like this:

    Sub PrintBW()
    '
    ' PrintBW Macro
    '
    '
    'Save current printer
    Dim sCurrentPrinterStr As String
    sCurrentPrinterStr = ActivePrinter
    '
    'Set printer to black and white printer
    ActivePrinter = "\\sethpafil006\HP Laserjet 4350 DTN"
    '
    'Print document
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
    wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
    PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
    PrintZoomPaperHeight:=0
    '
    'Reset printer to original setting
    ActivePrinter = sCurrentPrinterStr


    End Sub

    This macro was assigned to an icon, next to another similar macro/icon combination for printing using the colour printer.

    I've now moved to an office with a single Kyocera TASKalfa 400ci KX printer. This can be set to print in B&W, or in colour - the default is black and white (to save money).

    I have tried recording a macro to select colour printing, and print a document; but the mouse clicks used to select colour printing do not seem to be recorded in the macro.

    Google has not been my friend - perhaps it would help if I could work out what to search for, but searches so far have not got any useful hits.

    Can anybody suggest how to set the printer to print in B&W or in colour using VBA?

    Peter.

  2. #2
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    3,945
    Thanks
    0
    Thanked 203 Times in 184 Posts
    It might be worthwhile checking whether setting 'Options.PrintDraft = True' kills the colour output.
    Cheers,

    Paul Edstein
    [MS MVP - Word]

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •