Запрошенный PaperSize недоступен на выбранном в данный момент принтере.

Question

Я хотел бы скопировать некоторые данные Excel в текстовый документ, используя VBA

Данные Excel созданы для области печати A3. После создания текстового документа я пытаюсь настроить размер бумаги для нового текстового документа на A3. Это дает мне ошибку во время выполнения

Ошибка времени выполнения "5889" Запрошенный PaperSize недоступен на текущем выбранном принтере

Код VBA, который я использую

Set obj = CreateObject("Word.Application")
obj.Visible = True
Set newobj = obj.Documents.Add
newobj.ActiveWindow.Selection.PageSetup.PaperSize = wdPaperA3

Sheets("Page1").Activate
Range("A1:Q18").Copy

newobj.ActiveWindow.Selection.PasteExcelTable False, False, True
newobj.ActiveWindow.Selection.InsertBreak Type:=7

Пробовал другой подход, который также дает мне ту же ошибку

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")

If wdApp Is Nothing Then
Set wdApp = GetObject("", "Word.Application")
End If

With wdApp
.Documents.Add
.Visible = True
End With
With wdApp.Selection
.PageSetup.Orientation = wdOrientPortrait
.PageSetup.PaperSize = wdPaperA3
.PageSetup.MirrorMargins = wdNarrow
.PasteSpecial , Link:=False, DataType:=14, _
    DisplayAsIcon:=False
End With
Set wdApp = Nothing