CftClub.ru

[progr_anna]

Добрый день!

Подскажите, пожалуйста, как реализовать отправку на печать файла .jpg (или .xls)? Пробовала использовать [excel].Printsheet (как я поняла, выбирается принтер по умолчанию) - ничего не вышло на печать, пробовала [excel].print(принтер), предварительно вычислив умолчательный принтер:
Set oShell = CreateObject("WScript.Shell")
strValue = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
srPrinter = oShell.RegRead(strValue)
strPrinter = Split(strPrinter, ",")(0)
тоже на печать ничего не ушло..

Спасибо!

[Saalex_gav]

excel.PrintSheet; -- чтобы печатался надо закоментить excel.visible; !!!