Ailton Zacarias (Desenvolvedor VBA)

Public Function ImprimirExcel(Modelo As String)

Dim XPlanilha As Object

Set XPlanilha = CreateObject(“Excel.Application”)

‘Abre o arquivo modelo
XPlanilha.Workbooks.Open (Modelo)

‘Seleciona a primeira planilha
XPlanilha.Workbooks(1).Sheets(1).Select

XPlanilha.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

XPlanilha.Application.DisplayAlerts = False

XPlanilha.Quit

XPlanilha.Application.DisplayAlerts = True

Set XPlanilha = Nothing

End Function