Thanks for those links, they were helpful.
I have now figured out a way to update the margins but it is just the font part I am stuck on.
This is what I have so far.
Option Explicit
Sub MyMacro()
Dim TargetPath As String
Dim TargetFile As String
Dim OutputPath As String
Dim PrintableOutputFile As String
Dim PrintOutput As String
Dim PathInput As String
TargetPath = Range("Target_Path").Value
TargetFile = Range("target_file").Value
OutputPath = Range("Output_Path").Value
PrintableOutputFile = Range("printable_output_file").Value
PathInput = Range("target_path").Value & "\" & Range("target_file").Value
PrintOutput = Range("output_path").Value & "\" & Range("printable_output_file").Value
Open PathInput For Input As #1
Open PrintOutput For Output As #2
Print #2, "My Data here"
Set wrdApp = GetObject(PrintOutput)
With wrdApp.PageSetup
.TopMargin = Application.InchesToPoints(2.25)
.BottomMargin = Application.InchesToPoints(2.25)
' .Font.Size = 14
End With
Close #1
Close #2
End Sub
Running this with the font command gives an error message "Object doesnt support this property or method".
If you or anyone else has any tips or anything that could help please let me know, any feedback is appreciated.
Thanks!