none
Imprimir somente conteúdo preenchido em celulas RRS feed

  • Pergunta

  • Olá, eu usei o Cod. abaixo para imprimir apenas as células preenchidas de um relatório, porém ele não está imprimindo os resultados de formulas. Quero saber qual o Cod. para além de imprimir as células preenchidas, imprimir também, resultados de formulas.
    Private Sub bt_numcophome_Click()
    
      
            Dim naoVazia As Integer
            Dim numdecopias As String
                Worksheets("Contas a Pagarhome").Select
                naoVazia = ThisWorkbook.Worksheets("Contas a Pagarhome").Range("G550").End(xlUp).Offset(0, 5).Row
                numdecopias = TextBox1
                Range("A1:G550").Select
                Range("A1:g1000").SpecialCells(xlCellTypeConstants).Select
                ActiveWindow.SelectedSheets.PrintOut copies:=numdecopias, Collate:=True, _
                IgnorePrintAreas:=False
                
    
    End Sub

    quinta-feira, 23 de agosto de 2018 02:03

Todas as Respostas

  • Olá, creio que as duas opções simultaneamente não será possível. Se quiser as fórmulas basta você inserir:

    SpecialCells(xlCellTypeFormulas)

    Alternativamente você poderia utilizar outro critério, como formatação das células, por exemplo:

    SpecialCells(xlCellTypeSameFormatConditions)

    Abraço.


    Filipe Magno

    sexta-feira, 24 de agosto de 2018 01:35