спасибо за направление копания

буду искать и экспериментировать.
о! получилось из эксела сделать то, что надо с помощью макроса.
вот:
Sub Макрос1()
Application.ActivePrinter = "Microsoft Office Document Image Writer (Ne00

"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Microsoft Office Document Image Writer (Ne00

", Collate:=True, PrToFileName:="test.tif"
End Sub