Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda código impres...
 
Notifications
Clear all

Ajuda código impressão em pdf

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
935 Visualizações
RSS
 derlei3000
(@derlei3000)
Posts: 3
New Member
Topic starter
 

Olá pessoal,

A última linha do meu código está dando erro, não sei mais o que modificar.

tentei esse código:

Private Sub Cmdpdf_Click()

Dim Nome As String

Sheets("controle").Select

Sheets("controle").PageSetup.Orientation = xlLandscape

Nome = ThisWorkbook.Path & "Documentos Pendentes" & Range("B3").Value & ".pdf"

ThisWorkbook.Sheets("controle").Range("b4:l30").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome >> Esta linha está dando erro<<

e esse código:

Private Sub Cmdpdf_Click()

Dim Nome As String

ActiveSheet("controle").Activate

ActiveSheet.PageSetup.Orientation = xlLandscape

Nome = ThisWorkbook.Path & "Documentos Pendentes" & Range("B3").Value & ".pdf"

ActiveSheet.Range("b4:l30").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome <<dá erro também nessa linha>>

e mesmo assim continua dando erro na última linha

Outra dúvida que tenho, como eu faço para salvar o nome do arquivo em pdf mais a data do dia que está sendo gerado o relatório.

Desde já agradece pela ajuda.

 
Postado : 06/05/2014 12:14 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Muito genérico a descrição da dificuldade, então vamos no ACHÔMETRO:
Acho que falta uma barra na indicação do nome/diretório:

Nome = ThisWorkbook.Path & "Documentos Pendentes" & Range("B3").Value & ".pdf"

Para incluir a data veja em viewtopic.php?f=10&t=7336&hilit=+*pdf* ou viewtopic.php?f=10&t=6236&hilit=+%2Apdf%2A
entre outros

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/05/2014 1:13 pm
 derlei3000
(@derlei3000)
Posts: 3
New Member
Topic starter
 

Obrigado Reinado, mas mesmo assim não consegui resolver o problema, de qualquer forma anexei a planilha caso queira olhar o código.

Valeu

Projeto Controle de Documentos.xlsm
 
Postado : 06/05/2014 1:50 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O nome de arquivos deve respeitar as regras do sistema operacional. O Windows não permite alguns caracteres na descrição de nomes de arquivos, entre eles "/", assim data deve ser formatada para "perder" as barras.

Experimente assim:

Private Sub Cmdpdf_Click()

Dim Nome As String, dHoje As String
dHoje = Format(Date, "dd-mm-yyyy") 'Corresponte à função Hoje(), formatada sem as barras

Sheets("controle").Activate

ActiveSheet.PageSetup.Orientation = xlLandscape

Nome = ThisWorkbook.Path & "Documentos Pendentes ON 2.3.8 - " & dHoje & ".pdf"

ActiveSheet.Range("b4:l30").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/05/2014 6:27 pm
 derlei3000
(@derlei3000)
Posts: 3
New Member
Topic starter
 

Muito Obrigado Reinaldo funcionou perfeitamente !!

Abs

 
Postado : 06/05/2014 6:44 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Dirlei

Como a resposta do Reinaldo solucionou a tua dúvida, faltou você agradecer clicando na mãozinha que fica do lado da ferramenta Citar.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/05/2014 7:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico