Código:
Espero que me puedan ayudar. 'Genero el PDF y lo guardo 302 gStr_WebPDF = gStr_DirCertificado & strKADOCU0A WebPdf.Navigate2 ("http://89.0.1.16/bm/intranet/RRHH/Tabla_salarial_intranet.PDF") Set Web1 = CreateObject("InternetExplorer.Application") Web1.Navigate ("http://89.0.1.16/bm/intranet/RRHH/Tabla_salarial_intranet.PDF") Web1.Visible = True bytes() = StrConv(Web1, vbUnicode) Open "c:\Nuevo archivo.pdf" For Binary Access Write As 2 Put #2, , bytes Close