Kompletní příklad jednoduché tiskové sestavy

1. Vytvoření formulářů v souboru tiskových formátů FORMAT.TXT:

     -----------------------------------------------------------
     TISK_1
     ' ------------------------------------------------------';
     ' |          TEST TISKU FORMÁTŮ (TISK_1)               |';
     ' ------------------------------------------------------';
     ' |- Formulář obsahuje pět parametrů                   |';
     ' |- Jeden typ fontu                                   |';
     ' ------------------------------------------------------';
     ' |P1(F:/10)=$(1,/10)##       P2(F:/15)=$(2,/15)#######|';
     ' |                                                    |';
     ' |P3(F://20)=$(3,//20)###########                     |';
     ' |                                                    |';
     ' |P4(F:/10)=$(4,/10)##       P5(F:/15)=$(5,/15)#######|';
     ' |                                                    |';'
       î----------------------------------------------------¶';
      KONEC
      

2. Přeložení souboru tiskových formátů do programem použitelné formy:
3. Napsání makra, které bude připravený formát používat:

  const program = "Test tiskárny"
  const wnFView = 1;
    -- Makro pouziva externi soubor FORMAT.LPT, ve kterem jsou
       tiskove objekty se jmeny TISK_1 a TISK_2. --
  LPLoadDef
  _LPMakeDef
  while _LPEnable = 0 do endwhile
  LPOpen(True)
  LPDown
  LPFOpen("FORMAT.LPT")
  LPFormat("TISK_1",  "první", "druhý", "třetí", "čtvrtý", "pátý");
  WInit(wnFView, 1,1,80,20, "PROHLÍŽEČ TISKNUTÉHO SOUBORU",winMove,0);
  Ins_FileView(wnFView, 10, 01,01,79,15, ofSelectable+ofFirstClick+ofFramed)
  Ins_Button  (wnFView, 20, 02,17,17,19, "Tisk", cmOK, 1)
  Ins_Button  (wnFView, 21, 20,17,35,19, "Přeruš", cmCancel, 0)
  SelObject(wnFView, 10)
  SetData(wnFView, _LPGetName + ".TXT")
  WOpen(wnFView)
  if _Execute(wnFView) = cmOK then
    LPMake(1)
  else
    LPClose
  endif