strFont=""""+ "宋体"+ """"strCellValue=Range("Q39").ValueActiveSheet.PageSetup.RightHeader = “&”+ strFont + strCellValue
