Imprimir planilha oculta e exportar PDF

Question

Olá amigos,

É possível imprimir uma planilha oculta no VBA ou tenho que torna-la visível?

Além disso gostaria de saber como criar um pdf via vba de uma planilha.

Grato,

Answer 1

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.

Answer 2

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