Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Macro de gravar em PDF

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
DavidFelix



Mensagens : 16
Data de inscrição : 22/03/2013

MensagemAssunto: Macro de gravar em PDF   Sex Abr 05, 2013 4:19 pm

Boas amigos,

Eu tenho um botão que diz gravar PDF.
Que no excel ele me copiei as celulas desde a A1:C24
Mas não estou a conseguir fazer a programaçao da macro para me fazer isso salva em PDF.

Se alguem me poder ajudar obrigado.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro de gravar em PDF   Sex Abr 05, 2013 6:36 pm

Boa tarde!!

Veja em:
http://msdn.microsoft.com/en-us/library/office/hh128799(v=office.14).aspx
http://msdn.microsoft.com/en-us/library/ee834871%28office.11%29.aspx

Tente adaptar
Código:
Sub Gera_Pdf()
Dim i, ListSheets As Variant
Dim AleVBA As String
i = 0
'Array com as Planilhas a serem convertidas Array("Plan2", "Plan3")
ListSheets = Array("Sheet1") '<-- o nome da sua guia
AleVBA_Data = Format(Date, "dd-mm-yyyy")
AleVBA_Horas = Format(Time, "hh.mm")
For Each i In ListSheets
'09_03_2013 (10-52) - Recebimento.pdf
'endereco = "C:\Users\alexandre\Downloads\" & AleVBA_Data & "_" & i & "_pdf_" & AleVBA_Horas
endereco = "I:\Excel\Relatório\" & AleVBA_Data & "_" & i & "_pdf_" & AleVBA_Horas '<- seu caminho de diretório
Sheets(i).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
endereco, Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True
Next i
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
DavidFelix



Mensagens : 16
Data de inscrição : 22/03/2013

MensagemAssunto: Re: Macro de gravar em PDF   Sex Abr 05, 2013 9:55 pm

Alexandre,
A marco não consigo colocar a funcionar.
Vou colocar o ficheiro no 4share o ficheiro e a area que quero que seja gravada em PDF é a que esta a cinzento.
A pasta de vai gravar é no ambiente de trabalho.
Eu ja coloco o link de onde esta o livro do excel.

4shared.com/file/cJzua-lS/Livro1.html

Obrigado pela ajuda é que sou um zero no VBA
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro de gravar em PDF   Sab Abr 06, 2013 2:47 am

Boa noite!!

Comigo deu certo!!!
http://www.4shared.com/rar/lp5xDGCt/downloads.html
Código:
Sub CommandButton1_Click()

Dim i, ListSheets As Variant
Dim AleVBA As String
i = "A1:B14"
'Array com as Planilhas a serem convertidas Array("Plan2", "Plan3")
ListSheets = Array("Folha1") '<-- o nome da sua guia
AleVBA_Data = Format(Date, "dd-mm-yyyy")
AleVBA_Horas = Format(Time, "hh.mm")
For Each i In ListSheets
' A linha abaixo --> C:\Users\alexandre\Downloads\ <--deve ter seu diretório, caso contrário não funcionara.
endereco = "C:\Users\alexandre\Downloads\" & AleVBA_Data & "_" & i & "_pdf_" & AleVBA_Horas
Sheets("Folha1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
endereco, Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True
Next i

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Macro de gravar em PDF   Hoje à(s) 1:33 pm

Voltar ao Topo Ir em baixo
 
Macro de gravar em PDF
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como gravar as ligações?
» gravar ligacao de telefone
» Epsxe EMULAÇÃO PERFEITA!!!
» Tutorial: Gravando Jogos de Nintendo Wii
» Tutorial: Criar ISO de Ps1.

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: