CÓDIGOS DA MACRO PARA COPIAR: Sub Gerar_Pdf() On Error GoTo Erro Dim LocalNome As String, Area As String Dim Plan As Worksheet Dim TL As Double LocalNome = ThisWorkbook.Path & "/Pdf" 'Alterar Set Plan = Planilha1 'Alterar Area = "B4:I" 'Alterar TL = WorksheetFunction.CountA(Plan.Range("B:B")) + 3 'Alterar Area = Area & TL With Plan.PageSetup .Orientation = xlLandscape ' Para salvar como retrato altere xlLandscape para xlPortrait .PrintArea = Area .Zoom = False .FitToPagesTall = False .FitToPagesWide = 1 End With Plan.Range(Area).ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=LocalNome, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Set Plan = Nothing Exit Sub Erro: MsgBox "Erro!", vbCritical, "PDF" End Sub
bom dia como faz para salvar mais de 1 pdf percebi que quando eu salvo um pdf se eu for salvar outro nao vai eu tenho que exclur o primeiro que salvei pra salvar outro
Boa tarde, para salvar precisa diferenciar o nome do pdf, pode ser colocando a data e hora por exemplo. Ex: Dim Data As String, Hora As String Data = VBA.Replace(VBA.Date, "/", "_") Hora = VBA.Replace(VBA.Time, ":", "_") LocalNome = ThisWorkbook.Path & "/Pdf" & Data & " " & Hora
É possível especificar aquelas opções quando coloca pra imprimir? Por exemplo, espeficar que vai ser no modo paisagem, e imprimir apenas as células selecionadas, com margens estreitas, ou coisa do tipo, porém especificada no código
Bom dia, definir se é no modo paisagem ou retrato é possível, deixei comentado na linha de código onde precisa alterar. Vai ser de xllandscape para xlportrait
Olá estou presisando tirar uma outra dúvida com você: Considere 4 números em quatro células do excel: A, B, C, D quando digitamos a fórmula abaixo na planilha vai aparecer os valores correspondente, certinho =A1 =B1 =C1 =D1 como fica no código VBA ao apertar o "executar" aparecer os quatro números em células diferentes?
Entendi...eu identifiquei que a área a ser selecionada não é convertida para o pdf. Consigo selecionar somente até a referência 9...depois a macro dá erro 1004. Como eu resolvo isso?
Existe a possibilidade de alterar o código para que salve apenas algumas linhas de acordo com um critério específico informado pelo usuário? Por exemplo, gerar um pdf apenas com as informações do cliente “João”, sendo esse nome informado pelo usuário através de um formulário
CÓDIGOS DA MACRO PARA COPIAR:
Sub Gerar_Pdf()
On Error GoTo Erro
Dim LocalNome As String, Area As String
Dim Plan As Worksheet
Dim TL As Double
LocalNome = ThisWorkbook.Path & "/Pdf" 'Alterar
Set Plan = Planilha1 'Alterar
Area = "B4:I" 'Alterar
TL = WorksheetFunction.CountA(Plan.Range("B:B")) + 3 'Alterar
Area = Area & TL
With Plan.PageSetup
.Orientation = xlLandscape ' Para salvar como retrato altere xlLandscape para xlPortrait
.PrintArea = Area
.Zoom = False
.FitToPagesTall = False
.FitToPagesWide = 1
End With
Plan.Range(Area).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=LocalNome, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Set Plan = Nothing
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "PDF"
End Sub
Obrigado
De nada.
Muito Obrigado
De nada.
bom dia como faz para salvar mais de 1 pdf percebi que quando eu salvo um pdf se eu for salvar outro nao vai eu tenho que exclur o primeiro que salvei pra salvar outro
Boa tarde, para salvar precisa diferenciar o nome do pdf, pode ser colocando a data e hora por exemplo. Ex:
Dim Data As String, Hora As String
Data = VBA.Replace(VBA.Date, "/", "_")
Hora = VBA.Replace(VBA.Time, ":", "_")
LocalNome = ThisWorkbook.Path & "/Pdf" & Data & " " & Hora
É possível especificar aquelas opções quando coloca pra imprimir? Por exemplo, espeficar que vai ser no modo paisagem, e imprimir apenas as células selecionadas, com margens estreitas, ou coisa do tipo, porém especificada no código
Bom dia, definir se é no modo paisagem ou retrato é possível, deixei comentado na linha de código onde precisa alterar. Vai ser de xllandscape para xlportrait
Olá estou presisando tirar uma outra dúvida com você:
Considere 4 números em quatro células do excel:
A, B, C, D
quando digitamos a fórmula abaixo na planilha vai aparecer os valores correspondente, certinho
=A1 =B1 =C1 =D1
como fica no código VBA ao apertar o "executar" aparecer os quatro números em células diferentes?
Boa noite, não entendi exatamente, mas para salvar um número em uma célula é o código a seguir. Ex:
Planilha1.Range("A1").Value = 1
No comando "set plan", o qual, seleciona a planilha a ser arquivada como pdf o código apresenta o erro 424. Como resolver?
Boa tarde, provavelmente esta referenciado de forma errada o nome da guia, precisa ser o nome interno do vba.
Entendi...eu identifiquei que a área a ser selecionada não é convertida para o pdf. Consigo selecionar somente até a referência 9...depois a macro dá erro 1004. Como eu resolvo isso?
AMIGO TERIA COMO CRIAR UM SCRIPT PARA FAZER DOWNLOAD DE POWERPOINT TAMBÉM
Bom dia, não fiz algo neste sentido até o momento.
Existe a possibilidade de alterar o código para que salve apenas algumas linhas de acordo com um critério específico informado pelo usuário? Por exemplo, gerar um pdf apenas com as informações do cliente “João”, sendo esse nome informado pelo usuário através de um formulário
Bom dia, não fiz algo assim ainda, ideal seria filtrar estes dados em outra aba para gerar o pdf.