{$FORM TFrmPrintParams, Unit2.sfm} uses Classes, Graphics, Controls, Forms, Dialogs; procedure cxPrintCaptionClick(Sender: TObject); begin cxPrintQty.SetFocus(); end; procedure FrmPrintParamsShow(Sender: TObject); begin cxPrintQty.Value := 1; end; procedure btPrintClick(Sender: TObject); begin PrintJournal('', '', True, True, cxPrintQty.Value, True); end; procedure btOnShowClick(Sender: TObject); begin //PrintJournal(ExtractFilePath(Application.ExeName) + 'FR\FR3\WhGoodOut.fr3', '', True, False, 0, True); // Сделал печать Карточки сохраненной в стандартной печати. PrintJournal('', '', True, False, 0, True); end; begin end;