Olá amigos,
Em meu projeto eu optei por imprimir o relatório em PDF. Está tudo funcionando mas eu gostaria que, ao abrir esse relatório, fosse salvo em uma pasta de relatórios que posso criar antecipadamente. Já verifiquei no fórum e não achei a resposta.
Estou anexando meu projeto e a situação relatada está no frmRelatorio_cheques.
Aguardo seus cometários.
Obrigado.
Edmilson
Faltou o anexo??
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Boa tarde!!
Poste seu arquivo modelo compactado!!
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Ed, a rotina utilizada para "gerar" o PDF, já está salvando, porem no mesmo diretório da planilha,
O caminho e nome:
SvInput = ThisWorkbook.Path & Application.PathSeparator & nome & " - " & Data & ".pdf"
Onde: ThisWorkbook.Path corresponde ao diretório onde está salvo a sua planilha e será "gravado" o pdf.
Application.PathSeparator corresponde à "/", que não é obtida pela variável anterior, mas é necessário para o sistema operacional
nome corresponde ao nome dado na caixa de mensagem
Data corresponde a data do dia no formato dd-mm-aaaa
Então para alterar o diretório mude:
ThisWorkbook.Path para (por exemplo) "c:/Relatórios"
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
como faço para adaptar esse código
SvInput = ThisWorkbook.Path & Application.PathSeparator & nome & " - " & Data & ".pdf"
nesse
Sheets("CONTROL").Select
Range("A1:N34").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:Indião.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("MENU_PRINCIPAL").Select
Sheets("CONTROL").Visible = True
ActiveWorkbook.Save