Este fórum está sendo desativado

[kleinowski]

Quero definir a área de impressão por VBA.
A questão é que a quantidade de linhas de cada planilha pode aumentar ou diminuir.
Para resolver isso tenho o seguinte código:
Range("G1").End(xlDown).Offset(1, 0).Select
Com isso ele já resolve o meu problema.

O que eu preciso é que a minha área de impressão seja da A5 até a ultima linha da coluna G.
Como faço isso?

[fcarlosc2018]

Veja se é assim:

Código: Selecionar todos

Sub DefinirAreaImpressao()

Dim Ultimalinha As Integer

 Worksheets("Plan1").Select
 
     Ultimalinha = ThisWorkbook.Worksheets("Plan1").Range("G1000").End(xlUp).Offset(0, 7).Row
     Range("A5:E1000").SpecialCells(xlCellTypeConstants).Select
     Range("A5:G" & Ultimalinha).Select
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

End Sub

[osvaldomp]

Código: Selecionar todos

Sub ImprimePlanilhaAtiva()
 With ActiveSheet
  .PageSetup.PrintArea = "$A$5:$G" & .Cells(Rows.Count, "G").End(3).Row
  .PrintOut
 End With
End Sub