Com esse macro excel vba vamos imprimir a area desejada,
tornando interativa o total de digitação existente.
Sub sbx_imprimir_resultado()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Set wArea = Planilha1.Range(“L1:U” & x)
Planilha1.PageSetup.PrintArea = wArea.Address ‘ “$L$1:$U$221”
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Excelente publicação, serviu-me muito. Obrigado.
Luiz Antonio – Contabilidade – SP
Obrigado Luis, eu que agradeço, pelo seu comentário.
Fique com Deus.
Expedito Marcondes