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

[talgat55]

с6.3 ABC MS SQL - Имеем два принтера в настройках- чековый и обычный- две кнопки печати отчетов - одна для чекового другая для обычного- Какими командами сделать соответствующий выбор принтеров для первого и второго случаев ? ( отчеты без report- в Excel выдаю ) ???

[gopstop2007]

viewtopic.php?p=26308#p26308

[Admin]

Отчеты в Excel?
Т.е. через OLE или что то выдаешь и там же печать делаешь?
Соответственно в Excel нужно принтер выбрать, так?

[talgat55]

извиняюсь - пользую Report и в preview-е или где-то вписать принтер

[Admin]

PRINTER{PROPPRINT:Device} = 'имя принтера' ! задаем перед открытием отчета

[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 (5.43 КБ) 3383 просмотра

SelectPrinter.zip

(797 КБ) 257 скачиваний

P.S. Обратите внимание на использование _CFCLinkMode_=>1 и _CFCDllMode_=>0

[talgat55]

спасибо огромное !