1 - Utilizar essa macro para imprimir via VBA.
Sub Macro1()
Range("A1:B3").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.
Obrigado pela visita!
www.exceleaccess.com
contato@exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com
