>The results were as follows:
>
>The old machine with a normal VDU = 120 x 120
>
>The new pc with the plasma screen = 96 x 96
>
>Michael

Oh different ! Honestly I expected the old one be 96*96. That's what I get on almost any desktop monitor. Save a copy of your excel file with say test.xls name.

lcXLS = 'c:\myPath\test.xls'
oExcel = createobject('Excel.Application')
with oExcel
 .Workbooks.Open(lcXLS)
  With .ActiveSheet
  	WITH .Range('A1').Font
	  lnOneChar = TXTWIDTH('0',.Name,.Size) * FONTMETRIC(6,.Name,.Size)
	  lnChars  = lnOneChar * 96/120
  	EndWith
        lnCurHeight = .Range('1:1').RowHeight
  	.Cells.ColumnWidth = lnChars
  	.Cells.RowHeight = lnCurHeight * 96/120
  Endwith
  .Visible = .t.
endwith

Check if printing this outputs correct area.
Cetin