forum.clarionlife.net

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

              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)