С6.3 ABC Выбор принтера программно
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
С6.3 ABC Выбор принтера программно
с6.3 ABC MS SQL - Имеем два принтера в настройках- чековый и обычный- две кнопки печати отчетов - одна для чекового другая для обычного- Какими командами сделать соответствующий выбор принтеров для первого и второго случаев ? ( отчеты без report- в Excel выдаю ) ???
-
- ✯ Ветеран ✯
- Сообщения: 1702
- Зарегистрирован: 25 Март 2009, 21:55
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
С6.3 ABC Выбор принтера программно
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
- Admin
- Администратор
- Сообщения: 3959
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
С6.3 ABC Выбор принтера программно
Отчеты в Excel?
Т.е. через OLE или что то выдаешь и там же печать делаешь?
Соответственно в Excel нужно принтер выбрать, так?
Т.е. через OLE или что то выдаешь и там же печать делаешь?
Соответственно в Excel нужно принтер выбрать, так?
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
С6.3 ABC Выбор принтера программно
извиняюсь - пользую Report и в preview-е или где-то вписать принтер
- Admin
- Администратор
- Сообщения: 3959
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
С6.3 ABC Выбор принтера программно
PRINTER{PROPPRINT:Device} = 'имя принтера' ! задаем перед открытием отчета
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
- Admin
- Администратор
- Сообщения: 3959
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
С6.3 ABC Выбор принтера программно
Код: Выделить всё
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)
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса