int sub SetStrona(int minGr, int minTx, int minWide)
//używa zmiennej typWydruku
//ustawia właściwie stronę, zgłasza komunikat,
//gdy nie można ustawić strony o wymiarach minimalnych
//dla tekstowego zwraca 1 gdy strona jest >= minWide
//-----------------------------------------------------
   wide = 0
   int orient  = 0
   string strErrMsg = "Zbyt duże marginesy lub zbyt mały rozmiar strony do sporządzenia raportu.\nZmień ustawienia drukarek domyślnych."

   if typWydruku then
      str.wydruk(1, -1, 0)
      if str.szer >= minWide then SetStrona  = wide = 1
      if str.szer < minTx then Message strErrMsg :   error ""
   else
      str.Info(0)
      if str.szer < minGr && str.wys > str.szer then orient = 1
      str.Wydruk(0, -1, orient)
      if str.szer < minGr then Message strErrMsg : error ""
   endif
endsub

str.Wydruk(0,-1, bPoziomo)
strona 150,150,150,150