Shortcut for printing in DRAFT mode

[Kevin]

Unfortunately there doesn't seem to be a built-in shortcut for
automatically printing a document in draft mode. I've tried to record
a macro to do this, but the macro will not run; it reports an error.
Any suggestions?

 

[JE McGimpsey]

Unfortunately there doesn't seem to be a built-in shortcut for
automatically printing a document in draft mode. I've tried to record
a macro to do this, but the macro will not run; it reports an error.
Any suggestions?

What error does it report, and what version of XL are you using?

This works for me:

Public Sub PrintDrafts()
Dim wsSheet As Worksheet
For Each wsSheet In ActiveWindow.SelectedSheets
With ws.Sheet
.PageSetup.Draft = True
.PrintOut
End with
Next wsSheet
End Sub

 

[JE McGimpsey]

Diregard - I forgot which group I was reading from.

The Word PageSetup object does not have a Draft property.


JE McGimpsey <[email protected]> wrote:

 

[John McGhie [MVP - Word]]

Hi Kevin:

I think the answer to this is that "Draft Mode" is an attribute provided by
your printer driver.

Word VBA cannot read or set the Printer properties on the Mac. It tries,
but fails on the error you are seeing.

What you might be able to experiment with is installing another "printer" on
your desktop, set to print to the same device, but with "Draft Mode" set as
a default. If you print to that, your output should happen in draft mode
without Word having to know about it.

Sorry.


This responds to article <[email protected]>,

Unfortunately there doesn't seem to be a built-in shortcut for
automatically printing a document in draft mode. I've tried to record
a macro to do this, but the macro will not run; it reports an error.
Any suggestions?

--

Please respond only to the newsgroup to preserve the thread.

John McGhie, Consultant Technical Writer,
McGhie Information Engineering Pty Ltd
Sydney, Australia. GMT + 10 Hrs
+61 4 1209 1410, mailto:[email protected]