Я использую принтер с непрерывной подачей, и принтер требует, чтобы документы печатались с использованием портретной ориентации, чтобы они выходили, как мне это нужно. Документы, которые я печатаю, однако шире, чем они высокие, и Word 2010 не позволяет портретной компоновке страницы в этом состоянии и автоматически устанавливает ориентацию печати в соответствии с ориентацией страницы. Я хотел бы избежать преобразования файлов .odt и установка дополнительных компонентов. Чтобы быть ясным, мне нужна ориентация печати быть портретной, а ориентация страницы-альбомной. -- этот код изменил их обоих
Dim oWord As Word.Application
Dim oDoc As Word.Document
oWord = CreateObject("Word.Application")
oWord.Visible = False
oDoc = oWord.Documents.Add("C:UserslmartinDesktopTemplate.docx")
oDoc.PageSetup.Orientation = Word.WdOrientation.wdOrientPortrait
oWord.PrintOut()
oWord.Quit(SaveChanges:=Word.WdSaveOptions.wdDoNotSaveChanges)