Добрый день!
Ребята помогите пожалуйста если не сложно конечно, обыскал весь интернет и не нашел нечего похожего.
Может кто-то писал такое уже приложение?!
У меня куча Excel файлов, и в каждой книге несколько листов. На просторах интернета находил что кто-то писал такое приложение которое распечатывает все книги и все листы находящиеся в одном каталоге.  
К сожалению само приложение не найдено сплошные битые ссылки

Проводником не предлагать?

Не получается, если через проводник то распечатается из каждого файла титульный лист, остальные листы не распечатаются.

set fso = CreateObject("Scripting.FileSystemObject")
set fldr = fso.GetFolder(fso.GetAbsolutePathName("."))
set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False

for each f in fldr.Files
 if instr(f.Type,"Excel") then
   set book = objExcel.Workbooks.Open(f.Path,0,1)
   book.PrintOut ,,,,printerName
   book.Close 0
 end If
next

objExcel.Quit
set objExcel = nothing

если бы я еще был программистом

лучше не надо

ну а как мне это откомпелировать?

это vbs, и это не надо ни компилировать ни даже компелировать.
надо скопировать эти буквы в текстовый файл *.vbs и положить в папку с твоими йокселями.
потом тыцнуть по нему.

> snowkam ©   (22.06.18 14:04) [6]

Делфи с незапамятных времен поддерживает встроенную возможность писать вот так
procedure TForm2.Button1Click(Sender: TObject);
var
 Excel: Variant;
begin
 Excel := CreateOleObject('Excel.Application');
 Excel.Visible := True;
 Excel.Workbooks.Open('D:\!1\1\book.xlsx');
end;

дальше сам.