DavidFelix
Mensagens : 16
Data de inscrição : 22/03/2013
 | | Assunto: 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.
| |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
DavidFelix
Mensagens : 16
Data de inscrição : 22/03/2013
| | Assunto: 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 | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Macro de gravar em PDF Sáb 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
| |
|
Conteúdo patrocinado
| | Assunto: Re: Macro de gravar em PDF | |
| |
|
