24 октября, среда 01:17
Bankir.Ru

Объявление

Свернуть
Пока нет объявлений.

Автопечать RTF-файла

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • Автопечать RTF-файла

    Есть задача -- АБС создала RTF-ный отчет. Как бы теперь его невизуально на печать выгнать. Скока не пытались объяснить ворду, что надо не показывать, а сразу печатать -- так ничего и не вышло. А макросы в RTF как-то не запихиваются. Кто-нибудь такие проблемы решал?
    Serg Voronov

  • #2
    Ну я думаю можно программку наваять, которая будет смотреть появление фыйлика, а дальше его распечатывать.

    Комментарий


    • #3
      Спасибо, вроде порешали. Пишется макрос в normal.dot типа:
      Код:
      Sub AutoPrint()
      '
      ' AutoPrint Макрос
      ' Макрос создан 03.06.2004 Сергей Воронов
      '
        ActivePrinter = "HP LaserJet 2300 Series PCL 6"
        ActiveDocument.PrintOut
        DisplayAlerts = False
        ActiveDocument.Close
        Application.Quit
        
      End Sub
      и потом в АБС зашиваешь вызов
      C:\Program Files\Microsoft Office\Office10\winword %1 /mAutoPrint
      Serg Voronov

      Комментарий


      • #4
        странно это - еще и в нормал дот править.
        а что такое ActiveX ваша АБС не знает?
        спасибо Кубрину в рс-банке есть:
        import lgxs;

        Excel = TlgActiveX("Excel.Application");
        Excel.Workbooks.Open("\\\\server\\pattern\\platpor.xls");

        Excel.ActiveCell.FormulaR1C1("Заполняем данными");
        Excel.Visible = TRUE;
        Excel.ActiveWindow.SelectedSheets.PrintPreview;

        а Excel.ActiveWindow.SelectedSheets.PrintOut;

        уже отправит на печать.


        exit(1);

        Комментарий


        • #5
          KaMPiLeR
          Сильно не уверен, что невинноубиенная Diasoft WF знает ActiveX. Да и потом, заявление физика на перевод загонять в ехель -- это несколько неудобно. Ворд гораздо проще.
          Serg Voronov

          Комментарий


          • #6
            я для примера, что первое под руку попалось - то и показал (из чего проще было выкинуть ненужное).

            Комментарий

            Пользователи, просматривающие эту тему

            Свернуть

            Присутствует 1. Участников: 0, гостей: 1.

            Обработка...
            X