I need to print a word in PDF from excel.

[GastonFranzini]

Hi,

In my excel Macro, I update several values and then open a word linked
with that excel. Finally what I need to do is to print that word to
PDF. I already have a PDF Printer, so I just need the code to do it.
Can anybody help me?
Thanks in advance.
Gastón.

 

[Francisco GMAIL]

Habilita la impresora predeterminada como la PDF y ya lo puedes imprimir a
al formato deseado

 

[GastonFranzini]

Gracias Francisco,
Tienes algún codigo para ello?
gracias

 

[Francisco GMAIL]

Repitiendo:

Desde el panel de impresoras asigno primero la que me interesa y despues
ejecuto mi macro desde el archivo excel asignando la instruccion sig:

midefaultes = application.activeprinter
range("A1") = midefaultes

Para saber el texto necesario para predeterminar por default en el codigo.

Saludos

 

[GastonFranzini]

gracias Francisco,
Ahora el problema que tengo es que aparece una ventada del pdf para
confirmar el nombre del archivo y ademas una del Normal.dot, que se
modifico.
Adjunto el codigo para que lo veas.
Muchas gracias por tu ayuda.
-----------
Sub wordchage()

Dim WordApp As Object

Set WordApp = CreateObject("Word.Application")
fpath = ThisWorkbook.Path

doc = fpath & "\" & ("Base.doc")
Sheets("Incumbent").Select
LetterTemplate = doc
fname = Range("A3")
fnamedoc = fname & ".doc"

With WordApp
..Documents.Open LetterTemplate
..Visible = True

End With

fname = fname & ".pdf"
WordApp.ActiveDocument.PrintOut Background:= False
WordApp.ActiveDocument.SaveAs Filename:=fpath & "\" & fnamedoc
WordApp.Quit
Set WordApp = Nothing
End Sub