Macro Imprimir pdf colocando o nome

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Re: Macro Imprimir pdf colocando o nome

Mensagempor jebrito » Sáb Jan 28, 2012 9:58 am

Estou usando assim

Sub Macro1()

pasta = ActiveSheet.Range("J14").Value
arq = ActiveSheet.Range("J14").Value & ActiveSheet.Range("B21").Value & ActiveSheet.Range("D14").Value & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"C:\" & pasta & "\" & arq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub

Porém quando vou executar presenta uma mensagem de erro "Erro em tempo de execução "438"
o que esta errado?

Grato
jebrito
Membro
Membro
 
Mensagens: 4
Registrado em: Sáb Jan 28, 2012 9:54 am
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: Macro Imprimir pdf colocando o nome

Mensagempor jebrito » Sáb Jan 28, 2012 10:02 am

estou colocando da seguinte forma


Sub Macro1()

pasta = ActiveSheet.Range("J14").Value
arq = ActiveSheet.Range("J14").Value & ActiveSheet.Range("B21").Value & ActiveSheet.Range("D14").Value & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"C:\" & pasta & "\" & arq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub


Porém aparece "erro de tempo de execução 438"
O que está errado, tenho que ter uma impressora pdf instalado?
jebrito
Membro
Membro
 
Mensagens: 4
Registrado em: Sáb Jan 28, 2012 9:54 am
Has thanked: 0 time
Have thanks: 0 time

Re: Macro Imprimir pdf colocando o nome

Mensagempor Reinaldo » Sáb Jan 28, 2012 12:16 pm

O erro de execução, provavelmente é por não "encontrar" o caminho para salvar o arquivo.
experimente, verificar se o diretorio foi encontrado antes de salvar o pdf, para ver ser o erro é por isso

Sub Macro1()
Dim Pasta As String, MyPath As String

Pasta = ActiveSheet.Range("J14").Value
arq = ActiveSheet.Range("J14").Value & ActiveSheet.Range("B21").Value & ActiveSheet.Range("D14").Value & ".pdf"
MyPath = "c:\" 'Indica em que local a pasta estará , pode ser C: ou d: ou e:....
'Verifica se o diretorio existe
If (Dir(MyPath & Pasta, vbDirectory) = "") Then
MsgBox "Diretório - " & MyPath & Pasta & " - Não encontrado"
' se não existir, cria se quiser
' MkDir (MyPath & Pasta)
End If
'Verifica se o arquivo já existe, se existir, deleta
'If (Dir(Arquivo) <> "") Then
' Kill Arquivo
'End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\" & Pasta & "\" & arq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub
Reinaldo
 

Re: Macro Imprimir pdf colocando o nome

Mensagempor jebrito » Dom Jan 29, 2012 10:30 pm

Olá Reinaldo

Desculpe minha ignorância, mas, agora quando vou executar a macro apresenta a caixa "O objeto não aceita esta propriedade ou método" e no Visual basic " erro em tempo de execução '438': O objeto não aceita esta propriedade ou método"
Grato pela colaboração e compreensão

Jeandro
jebrito
Membro
Membro
 
Mensagens: 4
Registrado em: Sáb Jan 28, 2012 9:54 am
Has thanked: 0 time
Have thanks: 0 time

Re: Macro Imprimir pdf colocando o nome

Mensagempor Reinaldo » Seg Jan 30, 2012 9:19 am

jebrito escreveu:Olá Reinaldo

Desculpe minha ignorância, mas, agora quando vou executar a macro apresenta a caixa "O objeto não aceita esta propriedade ou método" e no Visual basic " erro em tempo de execução '438': O objeto não aceita esta propriedade ou método"
Grato pela colaboração e compreensão

Jeandro


Segue um exemplo, lembrando que essa sintese, sómente funciona em excel 2007 e acima
Reinaldo
 

Re: Macro Imprimir pdf colocando o nome

Mensagempor VEDANA » Qui Dez 05, 2013 4:05 pm

Como eu faço pra executar essa macro??? Desculpe a ignorancia...
VEDANA
Membro
Membro
 
Mensagens: 3
Registrado em: Qui Dez 05, 2013 8:21 am
Has thanked: 1 time
Have thanks: 0 time

Anterior

Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 4 visitantes