![]() |
#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 | Thread Starter | Forum | Replies | Last Post |
![]() |
nkg | Word VBA | 5 | 05-05-2012 03:57 AM |
![]() |
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 |