Pessoal,
Consegui criar uma MACRO, descrita abaixo, que salva em PDF a impressão de uma pasta, entretanto ela só funciona quando a pasta está visível/ativa. Mas eu preciso que a MACRO gere a impressão em pdf de uma pasta oculta. Poderiam me orientar como resolver a minha dificuldade.
xCaminho = "C:Temp"
xNomeArq = "Relatorio de Despesa.pdf"
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
xCaminho & xNomeArq, Quality:=xlQualityStandard, IncludeDocProperties:=True, From:=1, To:=2, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Estou supondo que quando diz "Pasta Oculta" está querendo dizer "Aba", se for, não tem como imprimir ou salvar como PDF uma aba Oculta, terá de exibi-la antes e oculta-la em seguida, se for isto use a rotina abaixo, lembre-se de alterar o nome da aba na rotina :
Sub Pdf_Aba_Oculta()
Dim shtPdf As Worksheet
'Ajuste o nome da aba que está oculta
Set shtPdf = Sheets("NomeSuaAba")
xCaminho = "C:Temp"
xNomeArq = "Relatorio de Despesa.pdf"
'Congela a tela
Application.ScreenUpdating = False
'Exibe a aba
shtPdf.Visible = True
'Salva em PDF
shtPdf.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
xCaminho & xNomeArq, Quality:=xlQualityStandard, IncludeDocProperties:=True, From:=1, To:=2, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'Oculta a aba
shtPdf.Visible = False
'Descongela a tela
Application.ScreenUpdating = True
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Muito obrigado Mauro Coutinho.
Atendeu perfeitamente a minha necessidade.