Imprimir somente conteúdo preenchido em celulas

Question

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

Answer 1

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