Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub FilePrint()
If ActiveDocument.Saved = False Then _
ActiveDocument.Save
' then your print parameters
' adjusted for your needs
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
to save-As under a reference name which populates a field on the document with the saved name, activated when the print is intiated.
Its then printed and saved again.
Sub FilePrint()
ActiveDocument.SaveAs Filename:=[i]string of file name (path?) from your field[/i]
Application.Dialogs(wdDialogFilePrint).Show
ActiveDocument.Save
End Sub