Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Ток файлы могут находиться в разных папках... я через эксель печатаю, чтоб папки не шарить... просто как гиперссылки задал кликать устал :(
как тупо отправить список на печать?
Сделала как сказал - у меня не получается... /в фоне открывается Акробат/ можно какнить упростить? просто задать на печать... а я уже какнить в экселле большой скрипт напишу, эксель хорошо знаю... какая разница что скрипт писать что фаил лист сохранять...
ну чонить типа :
Скрипты_СКРИПТЫ"Путь_К_ФАЙЛУ"ЕЩЕ_СКРИПТЫ ))) в экселе сцепим
@ScriptDir - получить директорию скрипта. Ведь неизвестно заранее в какой папке скрипт будет.
& - соединить имя директории скрипта с именем файла = полный путь к файлу.
Интересно узнать как отрабатывает на 5-ти файлах.
Нет возможности сейчас протестировать, т.к. физического принтера нет.
Данная опция очень поможет и сыкономит массу времени,
спасибо Yuriy, Спасибо все: SyDr, Redline и тебе madmasles за лик )
Знала - знала что есть тут добрые люди!
Оконьчательно
Shellexecute("C:\Program Files\Adobe\Acrobat 6.0\Acrobat\Acrobat.exe", " /P /H " & "D:\works\Сканы\4111838.pdf") - то что было нужно! Всем спасибо еще раз...
Тогда еще один автоматизированный тест.
Надо создать в директории скрипта текстовый файл List.txt.
В нем построчно, для начала штук 5, прописать полные пути к pdf файлам.
Например:
Код:
C:\Documents and Settings\user01\Рабочий стол\111.pdf
C:\Documents and Settings\user01\Рабочий стол\222.pdf
D:111.pdf
D:\333.pdf
Запустить этот скрипт:
Код:
$file = FileOpen(@ScriptDir&"\List.txt", 0) ;открыть файл List.txt для чтения
If $file = -1 Then
MsgBox(16, "Ошибка", "Не удалось открыть файл ")
Exit
EndIf
While 1
$line = FileReadLine($file);читаем открытый файл построчно в переменную $line
If @error = -1 Then ExitLoop;выйти из цикла после прочтения всех строк
Shellexecute("AcroRd32.exe", " /P /H " & $line);выполнить команду с подстановкой строки (полный путь к pdf файлу из списка) из переменной $line
Wend
FileClose($file);закрыть ранее открытый файл List.txt
Не - самое лучшее уже указали, скрипт будет писаться в экселе... столкнулась с проблемой вывода на виртуальный принтер :(
и боюсь еще сктолкнусть с проблемой сохранения одинаковых файлов :'(
Проблем с ошибками не будет... предварительная проверка на наличее файлов исключит ее...
Указываю принтер по умолчанию Adobe PDF а всёравно печатает в Каноне - что делать?
Добавлено:
Сообщение автоматически объединено:
Нет принтера - нет проблемы решено...
Добавлено:
Сообщение автоматически объединено:
У кого есть менее радикальные решения?
Добавлено:
Сообщение автоматически объединено:
Работает просто здорово - не хватает эмоций... аж ком тормозит )))
потом пробывала так:
Shellexecute("C:\Program Files\Adobe\Acrobat 6.0\Acrobat\Acrobat.exe", " /P /H " & "\\Server\архив (d)\works\1\8389952-2.pdf")
WinWait("Creating Adobe PDF")
WinWaitClose("Creating Adobe PDF")
После первого файла Скрипт больше ничего не делает...
про окончании печати выходит Внизу экрана уведомление (Ну такое же выходит когда сетевой кабель не подключен):
title: Your PDF file "8389359-2.pdf" has been created.
Class: tooltips_class32
другой информации нет... можно ли это какнить использывать?
Ну попробуй с приостановками 1-2 секунды. Хотя это не выход.
Код:
Sleep(1000) ;остановка на 1 секунду
Пример:
Код:
$file = FileOpen(@ScriptDir&"\List.txt", 0) ;открыть файл List.txt для чтения
If $file = -1 Then
MsgBox(16, "Ошибка", "Не удалось открыть файл ")
Exit
EndIf
While 1
$line = FileReadLine($file);читаем открытый файл построчно в переменную $line
If @error = -1 Then ExitLoop;выйти из цикла после прочтения всех строк
Shellexecute("AcroRd32.exe", " /P /H " & $line);выполнить команду с подстановкой строки (полный путь к pdf файлу из списка) из переменной $line
Sleep(1000) ; пауза 1 секунда
Wend
FileClose($file);закрыть ранее открытый файл List.txt