Activesheet.Usedrange.Entirerow.Autofit

' Указываем путь к папке с Excel-файлами
folderPath = "C:\Ваша_папка" ' Измените на нужный путь

' Создаем объекты
Set objExcel = CreateObject("Excel.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(folderPath)

' Настройки Excel
objExcel.Visible = False
objExcel.ScreenUpdating = False

' Проходим по всем файлам в папке
For Each objFile In objFolder.Files
    ' Проверяем, является ли файл Excel-файлом
    If LCase(objFSO.GetExtensionName(objFile.Name)) = "xls" Or LCase(objFSO.GetExtensionName(objFile.Name)) = "xlsx" Then
        ' Открываем файл
        Set objWorkbook = objExcel.Workbooks.Open(objFile.Path)
        
        ' Применяем Autofit к активному листу
        On Error Resume Next
        objWorkbook.ActiveSheet.UsedRange.EntireRow.AutoFit
        On Error GoTo 0
        
        ' Печатаем файл
        objWorkbook.PrintOut
        
        ' Закрываем файл без сохранения изменений
        objWorkbook.Close False
    End If
Next

' Закрываем Excel
objExcel.Quit

' Освобождаем объекты
Set objWorkbook = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
Set objExcel = Nothing

' Проверяем, были ли переданы аргументы (файлы)
If WScript.Arguments.Count = 0 Then
    MsgBox "Перетащите Excel-файл(ы) на этот скрипт."
    WScript.Quit
End If

' Создаем объекты Excel и файловой системы
Set objExcel = CreateObject("Excel.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Настройки Excel
objExcel.Visible = False
objExcel.ScreenUpdating = False

' Обрабатываем каждый переданный файл
For Each strFile In WScript.Arguments
    ' Проверяем, является ли файл Excel-файлом
    If LCase(objFSO.GetExtensionName(strFile)) = "xls" Or LCase(objFSO.GetExtensionName(strFile)) = "xlsx" Then
        ' Открываем файл
        On Error Resume Next
        Set objWorkbook = objExcel.Workbooks.Open(strFile)
        If Err.Number = 0 Then
            ' Применяем Autofit к активному листу
            On Error Resume Next
            objWorkbook.ActiveSheet.UsedRange.EntireRow.AutoFit
            On Error GoTo 0
            
            ' Печатаем файл
            objWorkbook.PrintOut
            
            ' Закрываем файл без сохранения изменений
            objWorkbook.Close False
        Else
            MsgBox "Не удалось открыть файл: " & strFile
        End If
        On Error GoTo 0
    Else
        MsgBox "Файл не является Excel-файлом: " & strFile
    End If
Next

' Закрываем Excel
objExcel.Quit

' Освобождаем объекты
Set objWorkbook = Nothing
Set objFSO = Nothing
Set objExcel = Nothing