none
Imprimir planilha oculta e exportar PDF RRS feed

  • Pergunta

  • 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,

    terça-feira, 30 de julho de 2013 15:28

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

    sexta-feira, 2 de agosto de 2013 23:41
    Moderador

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
    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

    sexta-feira, 2 de agosto de 2013 23:41
    Moderador