Usuário com melhor resposta
Imprimir planilha oculta e exportar PDF

Pergunta
-
Respostas
-
Utilizando VBA, você pode contornar a situação para imprimir uma planilha oculta.
Sub fImprimirPlanilhaOculta() 'Escreva o nome da planilha desejada: Const cstrPlanilha As String = "Plan1" Dim enuVisibility As Excel.XlSheetVisibility With ThisWorkbook.Worksheets(cstrPlanilha) enuVisibility = .Visible .Visible = xlSheetVisible .PrintOut .Visible = enuVisibility End With End Sub Sub fGerarPDF() 'Escreva o nome da planilha desejada: Const cstrPlanilha As String = "Plan1" 'Mude o caminho desejado: Const cstrCaminho As String = "c:\felipe\" Dim strCaminho As String Dim wks As Worksheet strCaminho = cstrCaminho If Right(cstrCaminho, 1) <> "\" Then strCaminho = strCaminho & "\" End If With ThisWorkbook.Worksheets(cstrPlanilha) strCaminho = strCaminho & ThisWorkbook.Name & "-" & .Name & ".pdf" .ExportAsFixedFormat Type:=xlTypePDF _ , Filename:=strCaminho _ , OpenAfterPublish:=True End With End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 7 de junho de 2014 20:10
Todas as Respostas
-
Boa Noite Caio Caezar,
Não, você não consegue imprimir sem torna-la visivel.
oque você pode fazer, é bloquear a atualização da tela via código, reexibir a tela e imprimir, logo em seguida ocultar e desbloquear a tela.
Quanto a imprimir em PDF, não sei te responder, mais uma solução seria utilizar a impressora CutePDF, que cria uma impressora virtual, que salva em arquivo.
Julio Arruda
___________________________
Se foi util, marque como resposta.
- Sugerido como Resposta Julio ArrudaMVP quarta-feira, 31 de julho de 2013 23:34
-
Utilizando VBA, você pode contornar a situação para imprimir uma planilha oculta.
Sub fImprimirPlanilhaOculta() 'Escreva o nome da planilha desejada: Const cstrPlanilha As String = "Plan1" Dim enuVisibility As Excel.XlSheetVisibility With ThisWorkbook.Worksheets(cstrPlanilha) enuVisibility = .Visible .Visible = xlSheetVisible .PrintOut .Visible = enuVisibility End With End Sub Sub fGerarPDF() 'Escreva o nome da planilha desejada: Const cstrPlanilha As String = "Plan1" 'Mude o caminho desejado: Const cstrCaminho As String = "c:\felipe\" Dim strCaminho As String Dim wks As Worksheet strCaminho = cstrCaminho If Right(cstrCaminho, 1) <> "\" Then strCaminho = strCaminho & "\" End If With ThisWorkbook.Worksheets(cstrPlanilha) strCaminho = strCaminho & ThisWorkbook.Name & "-" & .Name & ".pdf" .ExportAsFixedFormat Type:=xlTypePDF _ , Filename:=strCaminho _ , OpenAfterPublish:=True End With End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 7 de junho de 2014 20:10