![]() |
#2
|
||||
|
||||
![]()
The following will save to the current user's desktop. Note that you should be using the document's name not the fullname, which includes the path. Where the document has not been saved, the PDF will be saved as Documentn.pdf
Code:
Sub Print1() ' ' Silent Save_to_PDF Macro Dim strPath As String Dim strName As String strPath = Environ("USERPROFILE") & "\Desktop\" strName = Replace(ActiveDocument.Name, ".docx", ".pdf") ActiveDocument.ExportAsFixedFormat _ OutputFileName:=strPath & strName, _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False, _ OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, _ Item:=wdExportDocumentContent, _ IncludeDocProps:=False, _ KeepIRM:=True, _ CreateBookmarks:=wdExportCreateNoBookmarks, _ DocStructureTags:=True, _ BitmapMissingFonts:=True, _ UseISO19005_1:=False End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
staicumihai | Word VBA | 14 | 11-15-2016 01:42 AM |
![]() |
LOUF | Word VBA | 1 | 12-07-2015 06:47 PM |
How do I save a Word file with a macro for distribution? | leemoreau | Word VBA | 3 | 10-04-2013 08:06 AM |
![]() |
tinfanide | Word VBA | 6 | 12-06-2011 03:02 PM |
![]() |
jabberwocky12 | Word VBA | 2 | 10-22-2010 12:23 PM |