Impresión de word en VBA con excel
Tengo esta macro, sin embargo, cuando imprime me está imprimiendo página 2 y necesito que unicamente imprima la página 1. Les agradezco si me ayudan
Sub PORTADA()
Application.ScreenUpdating = False
'Abre word
Dim num As Variant
Dim ruta As String
'
num = Worksheets("Ficha").Range("F2").Value
ruta = "C:\Users\Laura\Dropbox\TODAS\"
'
'Buscar archivos en la ruta con el número
archi = Dir(ruta & "*" & num & "*.docx")
'
If archi <> "" Then
Set WordApp = CreateObject("word.Application")
'Abre archivo en la ruta y con el número
WordApp.Documents.Open ruta & archi
WordApp.Visible = True
'Titulo fecha
Sheets("PORTADA"). Range("D3:I34"). Copy
'Se pegara en el documento lo copiado en la hoja de calculo
WordApp. Selection. PasteAndFormat 13
WordApp. Selection. InsertBreak
WordApp.ActiveDocument.PrintOut Range:=2 ' wdPrintCurrentPage
WordApp. Documents. Save
'Cerrar word
WordApp. Quit
Set WordApp = Nothing
Else
MsgBox "No existe el archivo:" & ruta & archi, vbCancel
MsgBoxResult = True
End If
Application.ScreenUpdating = True
End Sub
