for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Л и с о в о д ы   в с е х   с т р а н,  о б ъ е д и н я й т е с ь !!!  

Список Форумов  :: Не фоксом единым
   :: Помощь сайту :: 

excel - pdf конвеере
boba
[MVP]

Сообщений: 5069
Откуда: Медвежьи озера-
Дата: 25.01.18 12:05:06ОтветитьЦитировать
Ест куча екселовских файлов,
которые нужно оптом перевести в pdf
Макрос записи единичной операции устанавливается просто
Открыли документ, поставили свойство activeprinter
, но при запуске принтера спрашивает имя выходного файла,
Его в тексте макроса нет.
Вопрос, как извне с фокса подсунуть такое имя, чтобы
не возникал диалог выбора имени выходного файла.
Ratings: 0 negative/0 positive

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

Сообщений: 9668
Откуда: Измаил
Дата: 25.01.18 15:53:38ОтветитьЦитировать
Так диалог, наверное, драйвер "принтера" уже вызывает или нет?
Ratings: 0 negative/0 positive

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

Сообщений: 3
Дата: 25.01.18 23:18:11ОтветитьЦитировать
Попробуй написать PRN в качестве имени.
Самое главное, если это случается в pdf,то удалите старую версию и поставьте Adobe Reader DC новую с официалки www.adobe.com
Надеюсь ответил на ваш вопрос.
Ratings: 0 negative/0 positive

Re: excel - pdf конвеере
boba
[MVP]

Сообщений: 5069
Откуда: Медвежьи озера-
Дата: 26.01.18 07: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



Исправлено: Joys, 27.01.18 12:16
Ratings: 0 negative/0 positive

Re: excel - pdf конвеере
Аспид
Автор

Сообщений: 2996
Откуда: Москва
Дата: 26.01.18 08:40:15ОтветитьЦитировать
OFF
boba
Лучше все же тег code ставить.
Тяжело читается.


------------------
Ratings: 0 negative/0 positive



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

On-line: 33 ser61  and Guests: 32


© 2000-2018 Fox Club 
Яндекс.Метрика