С6.3 ABC Выбор принтера программно

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
talgat55
Ветеран
Сообщения: 307
Зарегистрирован: 11 Сентябрь 2008, 12:53
Благодарил (а): 2 раза

С6.3 ABC Выбор принтера программно

Сообщение talgat55 »

с6.3 ABC MS SQL - Имеем два принтера в настройках- чековый и обычный- две кнопки печати отчетов - одна для чекового другая для обычного- Какими командами сделать соответствующий выбор принтеров для первого и второго случаев ? ( отчеты без report- в Excel выдаю ) ???
gopstop2007
✯ Ветеран ✯
Сообщения: 1702
Зарегистрирован: 25 Март 2009, 21:55
Благодарил (а): 9 раз
Поблагодарили: 4 раза

С6.3 ABC Выбор принтера программно

Сообщение gopstop2007 »

“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

С6.3 ABC Выбор принтера программно

Сообщение Admin »

Отчеты в Excel?
Т.е. через OLE или что то выдаешь и там же печать делаешь?
Соответственно в Excel нужно принтер выбрать, так?
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
talgat55
Ветеран
Сообщения: 307
Зарегистрирован: 11 Сентябрь 2008, 12:53
Благодарил (а): 2 раза

С6.3 ABC Выбор принтера программно

Сообщение talgat55 »

извиняюсь - пользую Report и в preview-е или где-то вписать принтер
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

С6.3 ABC Выбор принтера программно

Сообщение Admin »

PRINTER{PROPPRINT:Device} = 'имя принтера' ! задаем перед открытием отчета
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

С6.3 ABC Выбор принтера программно

Сообщение Admin »

Код: Выделить всё

              PROGRAM
              INCLUDE('CFCEnumPrn.inc')

              MAP
              END

Window WINDOW('Printer list'),AT(,,223,148),GRAY,FONT('Microsoft Sans Serif',8)
    LIST,AT(9,9,205,116),USE(?PrintersList),FORMAT('20L(2)|M@S200@')
    BUTTON('Select && Print'),AT(85,129),USE(?ButtonPrint)
  END
  
Report REPORT,AT(396,709,11396,7198),PAPER(PAPER:A4),PRE(RPT),FONT('Arial',10,,),LANDSCAPE,THOUS
  END
  
EnumPrinters  CFCEnumPrinters

  CODE
  OPEN(Window)
  Err# = EnumPrinters.Enum()
  ?PrintersList{PROP:LineHeight} = 12
  ?PrintersList{PROP:From} = EnumPrinters.QPrns
  SELECT(?PrintersList, 1)
  ACCEPT
    CASE ACCEPTED()
    OF ?ButtonPrint
      GET(EnumPrinters.QPrns, CHOICE(?PrintersList))
      PRINTER{PROPPRINT:Device} = EnumPrinters.QPrns.PrinterName
      OPEN(Report)
      !PRINT(Rpt:Detail)
      CLOSE(Report)
    END
  END
  CLOSE(Window)
2017-07-15_19-20-13.png
2017-07-15_19-20-13.png (5.43 КБ) 2270 просмотров
SelectPrinter.zip
(797 КБ) 153 скачивания
P.S. Обратите внимание на использование _CFCLinkMode_=>1 и _CFCDllMode_=>0
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
talgat55
Ветеран
Сообщения: 307
Зарегистрирован: 11 Сентябрь 2008, 12:53
Благодарил (а): 2 раза

С6.3 ABC Выбор принтера программно

Сообщение talgat55 »

спасибо огромное !
Ответить