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.
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
Obrigado Reinado, mas mesmo assim não consegui resolver o problema, de qualquer forma anexei a planilha caso queira olhar o código.
Valeu
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
Muito Obrigado Reinaldo funcionou perfeitamente !!
Abs
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