Grid lines appear on screen, but do not print, despite xGridLines=1.

pbug;k;Œwself
© Grid lines do not appear when printing, even though xGridLines=1
© Also, upper-left header cell is a hair higher than other header row cells
© 12 Oct 2006  Rex Swain, Independent Consultant, www.rexswain.com

Œwself„'fm' Œwi 'Create' 'Form' ('where' 4 10)
   Œwi 'caption' 'Form with Grid'

   Œwself„'.grid' Œwi 'Create' 'APL.Grid'
      Œ„'APL version ',•Œsysver
      Œ„'Grid version ',•Œwi 'XGridVersion'
      Œwi 'xGridLines' 1
      Œwi 'xRows' 100
      Œwi 'xCols'  50
      Œwi 'xValue' ¯1 ¯1 'Rec'
      Œwi 'xValue' ¯1  1 (  1 50½¼  50)
      Œwi 'xValue'  1 ¯1 (100  1½¼ 100)
      Œwi 'xValue'  1  1 (100 50½¼5000)

Œwself„'printer' Œwi 'Create' 'Printer'
   Œwi 'scale' 3
   Œwi 'margin' 72 72 72 72

Œwself„'fm.grid'
   Œwi 'xPrinter' 'printer'
   Œwi 'xPrintMargin' 300 300 300 300  © pixels
   Œwi 'xPrintZoom' 2
   Œwi 'xPrintOptions' 3  © header rows and cols
   k„Œwi 'XPrintInit' 0 1 1 10 4  © just a few cells
   k„Œwi 'XPrintPages' 1

k„'printer' Œwi 'Close'