Buenas, estoi realizando una aplicacion y necesito que cuando se cargue el pdf en el webbrowser se cuarde automaticamente. He intentando de la siguiente forma, pero no hay manera.
Código:
'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
Espero que me puedan ayudar.