CONST mm = Ports.mm;
VAR v: Views.View;
BEGIN
...
Printing.PrintView(v, Printing.NewPar(page, header, footer, copies));
...

CONST mm = Ports.mm; wA4 = 210*mm; hA4 = 296*mm;
lm = 10*mm; tm = 10*mm; rm = 10*mm; bm = 10*mm;
VAR v: Views.View; d: Documents.Document;
BEGIN
...
d := Documents.dir.New(v, wA4, hA4);
Documents.Print(d, Printers.dir.Current(), Printing.NewPar(page, header, footer, copies));
...

PROCEDURE (v:... ) Restore (f: Views.Frame; l, t, r, b: INTEGER);
BEGIN
  IF Views.IsPrinterFrame(f) THEN (* вывести l, t, r, b *) END;
  ... 
END;

PROCEDURE (v: View) HandleCtrlMsg* (f: Views.Frame; VAR msg: Controllers.Message; VAR focus: Views.View);
   BEGIN
      WITH msg: Controllers.PageMsg DO
         msg.done := TRUE
      ELSE
         focus := v.inner
      END
   END HandleCtrlMsg;