|
|
#7
08-25-2020, 12:16 AM
|
||||
|
||||
The following should fix it. I will investigate the error log issue.
Code:
Sub Resize(oDoc As Document)
Dim lngOrient As Long
lngOrient = oDoc.PageSetup.Orientation
If oDoc.PageSetup.PaperSize = wdPaperLetter Then
oDoc.PageSetup.PaperSize = wdPaperA4
oDoc.PageSetup.Orientation = lngOrient
End If
End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 change printer settings - page size not paper size
|
trevorc | Excel Programming | 4 | 07-20-2020 05:10 PM |
|
Change Page size
|
dita | Word VBA | 4 | 05-19-2020 07:04 PM |
|
Hundreds of letters - print only the lead page on letterhead
|
RookA1 | Mail Merge | 7 | 02-13-2018 11:08 AM |
| Change page size reducing both margins | WizardDani | Word | 1 | 01-04-2018 06:41 AM |
|
Change font style and size in multiple documents
|
fitkhan | Word | 1 | 04-27-2011 09:49 PM |
Windows 10 
Office 2016
Threaded Mode