[Tipy a Triky] Tisk více stejných štítků na stránku

[michal.jarkovsky]

Pro tisk více stejných štítků na stránku, např. potisk celé stránky se štítky, stačí jednoduchá úprava formuláře. Ve vlastnostech stránky - File->Page setup - nastavit na záložce Paper size správnou velikost papíru, např. A4 a na záložce Layout počet sloupců a jejich rozměry. Poté na samotném reportu na položce Detail přes pravou myš zvolit Position (nebo v panelu vlastnosti) a tam do Bands Per Record zadat počet štítků k tisku, např. počet štítků na celou stránku.

Využití třeba pro tisk takového počtu stítků, kolik je množství na výrobním čísle. V proceduře BeforePrint na Detail:

Kód: Vybrat vše

procedure DetailBeforePrint;
begin
    Detail.BandsPerRecord := round(TabVyrCP['Mnozstvi']);
end;