Guru do Excel e Power BI

Enviado: **12 Nov 2018 às 18:45**

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?

Enviado: **12 Nov 2018 às 19:41**

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

Enviado: **12 Nov 2018 às 19:57**

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

Guru do Excel e Power BI

Definir Área de Impressão

Definir Área de Impressão

Definir Área de Impressão

Re: Definir Área de Impressão