#1
|
|||
|
|||
Print Document (no markups)
Trying to create a macro to be able print documents without showing markup comments. Apparently it is not possible to uncheck Print Markups by default if there open comments, so hoping to work around that by creating a shortcut. So far I have this, but doesn't seem to change the Print what option to just say Document: Code:
Sub PrintDoc() ' ' Print document only, no markups. ' Application.PrintOut Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1 End Sub Thanks. Last edited by macropod; 08-08-2012 at 05:12 PM. Reason: Added code tags |
#2
|
||||
|
||||
Hi Stanza_chad,
Your macro should simply print the document without invoking the Print dialogue. It also has no effect on that dialogue. Ordinarily, if you print a document containing comments, you'll get a warning. The following modifications will suppress that warning: Code:
Sub PrintDoc() Dim bOption As Boolean bOption = Options.WarnBeforeSavingPrintingSendingMarkup Options.WarnBeforeSavingPrintingSendingMarkup = False Application.PrintOut Range:=wdPrintAllDocument, _ Item:=wdPrintDocumentContent, Copies:=1 Options.WarnBeforeSavingPrintingSendingMarkup = bOption End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Re:
Nope, that code doesn't do anything different. Print screen still pops up with Documents showing markup as the default option. See screen shot attached.
When going through File > Print > Settings, Print Markup is selected that route as well. |
#4
|
||||
|
||||
Hi Stanza_chad,
As I said in my previous post: Quote:
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
Re:
An existing add-on calls the Print Dialogue whenever I print anything. Don't ask me why... Whether I use the QuickPrint option or go to File > Print, the Print Dialague window displays and I can't seem to change that without uninstalling necessary add-ons. Different code that will modify the print dialague is exactly what I'm looking for!
|
#6
|
||||
|
||||
Quote:
Code:
Sub Test() Dim bOption As Boolean, bAddin As Boolean With Application bAddin = .AddIns("Name").Installed bOption = .Options.WarnBeforeSavingPrintingSendingMarkup .AddIns("Name").Installed = False .Options.WarnBeforeSavingPrintingSendingMarkup = False With .Dialogs(wdDialogFilePrint) SendKeys "%W^{HOME}{ENTER}" .Show End With .Options.WarnBeforeSavingPrintingSendingMarkup = bOption .AddIns("Name").Installed = bAddin End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Print document except first page | nkg | Word VBA | 5 | 05-05-2012 03:57 AM |
Mutliple copies 167 print as one document | John-N | Mail Merge | 5 | 02-19-2012 07:15 PM |
Save and send markups | ceocast | Word | 1 | 12-09-2010 10:39 AM |
How can I print out the document as follow? | turbomen | Project | 1 | 05-23-2010 07:24 AM |
When I print the document changes layout | cooney | Word | 0 | 03-01-2010 12:17 AM |