FoxClub Forums > Не фоксом единым > excel

• Войти

excel - pdf конвеере
boba Автор Сообщений: 6269 Откуда: Медвежьи озера- Дата регистрации: 26.03.2001	boba 25.01.18 13:05:06 Ест куча екселовских файлов, которые нужно оптом перевести в pdf Макрос записи единичной операции устанавливается просто Открыли документ, поставили свойство activeprinter , но при запуске принтера спрашивает имя выходного файла, Его в тексте макроса нет. Вопрос, как извне с фокса подсунуть такое имя, чтобы не возникал диалог выбора имени выходного файла.

boba
Автор

Сообщений: 6269
Откуда: Медвежьи озера-
Дата регистрации: 26.03.2001

boba

25.01.18 13:05:06

Ест куча екселовских файлов,
которые нужно оптом перевести в pdf
Макрос записи единичной операции устанавливается просто
Открыли документ, поставили свойство activeprinter
, но при запуске принтера спрашивает имя выходного файла,
Его в тексте макроса нет.
Вопрос, как извне с фокса подсунуть такое имя, чтобы
не возникал диалог выбора имени выходного файла.

Re: excel - pdf конвеере
Chemberzhy Сообщений: 13142 Откуда: Измаил Дата регистрации: 28.04.2009	Chemberzhy 25.01.18 16:53:38 Так диалог, наверное, драйвер "принтера" уже вызывает или нет?

Re: excel - pdf конвеере
keisov Сообщений: 3 Дата регистрации: 25.01.2018	keisov 26.01.18 00:18:11 Попробуй написать PRN в качестве имени. Самое главное, если это случается в pdf,то удалите старую версию и поставьте Adobe Reader DC новую с официалки www.adobe.com Надеюсь ответил на ваш вопрос.

Re: excel - pdf конвеере
boba Автор Сообщений: 6269 Откуда: Медвежьи озера- Дата регистрации: 26.03.2001	boba 26.01.18 08:50:05 Может , кому пригодится Закоментированная строка с большим числом параметров не идет на некоторых компьютерах, не знаю, в чем дело. Работает, если в Ексел есть пункт-сохранить как pdf Public EXLS As EXCEL.Application EXLS = Createobject('EXCEL.APPLICATION') EXLS.Visible = .t. prn = GETPRINTER() exls.ActivePrinter=prn drr = GETDIR('Выберете директорию с ексел файлами') If Not Empty(drr) Set Default To (drr) lcshabname=Sys(2000,'.xls') Do While Not Empty(lcshabname) lcshabname=drr + lcshabname EXLS.Workbooks.Open(lcshabname) * EXLS.ActiveSheet.ExportAsFixedFormat(0,Sys(5)+Curdir()+Juststem(lcshabname),0,.F.,.F.,1,1,.f.) EXLS.ActiveSheet.ExportAsFixedFormat(0,Sys(5)+Curdir()+Juststem(lcshabname),0,.F.,.F.,1) EXLS.ActiveWorkbook.Close() lcshabname=Sys(2000,'.xls',1) ENDDO endif EXLS.Quit() EXLS = Null Release EXLS Исправлено 2 раз(а). Последнее : Joys, 27.01.18 13:16*

Re: excel - pdf конвеере

boba
Автор

Сообщений: 6269
Откуда: Медвежьи озера-
Дата регистрации: 26.03.2001

boba

26.01.18 08:50:05

Может , кому пригодится
Закоментированная строка с большим числом
параметров не идет на некоторых компьютерах,
не знаю, в чем дело.
Работает, если в Ексел есть пункт-сохранить как pdf


Public EXLS As EXCEL.Application

EXLS = Createobject('EXCEL.APPLICATION')
*EXLS.Visible = .t.
**prn = GETPRINTER()
*exls.ActivePrinter=prn
drr = GETDIR('Выберете директорию с ексел файлами')
If Not Empty(drr)
    Set Default To (drr)

    lcshabname=Sys(2000,'*.xls')
    
    Do While Not Empty(lcshabname)
        lcshabname=drr + lcshabname
        EXLS.Workbooks.Open(lcshabname)
**       EXLS.ActiveSheet.ExportAsFixedFormat(0,Sys(5)+Curdir()+Juststem(lcshabname),0,.F.,.F.,1,1,.f.)
 EXLS.ActiveSheet.ExportAsFixedFormat(0,Sys(5)+Curdir()+Juststem(lcshabname),0,.F.,.F.,1)
        EXLS.ActiveWorkbook.Close()
        lcshabname=Sys(2000,'*.xls',1)
    ENDDO
endif    
    EXLS.Quit()
    EXLS = Null
    Release EXLS

Исправлено 2 раз(а). Последнее : Joys, 27.01.18 13:16

Re: excel - pdf конвеере
Аспид Сообщений: 3475 Откуда: Москва Дата регистрации: 01.04.2005	Аспид 26.01.18 09:40:15 OFF boba Лучше все же тег code ставить. Тяжело читается. ------------------

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 6 (Гостей: 6)