Notifications
Clear all

SALVAR SITE EM PDF

4 Posts
1 Usuários
0 Reactions
1,062 Visualizações
(@lustosag)
Posts: 39
Eminent Member
Topic starter
 

Caros muito boa tarde, tenho uma macro que abre um hiperlink que está em uma célula, consequentemente abre o site referenciado pelo link, Até ai tudo certo! meu desejo é que após abrir o site, salvar logo em seguida ele em PDF, como faço esse efeito de Ctrl + P (abrir impressão) + salvar em PDF no próprio site tudo pelo Excel automatizado :?:

Código que acessa o hiperlink da célula:

   
 Range("B3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Desde já obrigado!

// Lustosa

 
Postado : 20/03/2018 1:32 pm
(@lustosag)
Posts: 39
Eminent Member
Topic starter
 

Alguma boa alma para me ajudar? gostaria pelo menos de saber se é possível essa interação....

 
Postado : 22/03/2018 6:05 am
(@lustosag)
Posts: 39
Eminent Member
Topic starter
 

Obtive alguns avanços... coloquei o site para abrir em um webBrowser dentro do excel, a idéia agora é concertar esta parte do código:

   objWebBrowser.ExportAsFixedFormat Type:=xlTypePDF, Filename:=lPasta & "" & txtNome _
        , Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

Acredito que uma definição correta nesta parte poderá me levar aonde eu quero, mais uma vez se alguém souber ou puder ajudar, agradeço, deixarei aqui a planilha para darem uma olhada :D

 
Postado : 22/03/2018 7:18 am
(@lustosag)
Posts: 39
Eminent Member
Topic starter
 

Obrigado pessoal mas consegui resolver com esta linha de código:

Foi duro mas achei! ehehe ta ai o código para quem precisar..

objWebBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

Felizmente este código salva a pagina no microsoft OneNote...

Abraços!

 
Postado : 23/03/2018 5:10 am