i added a property called pcLandscape to the object
and at the bottom of WriteSheetXMLs
if added a ifelse:
IF NOT this.pcLandscape
FWRITE(lhFile, '"/></worksheet>')
ELSE
FWRITE(lhFile, '"/><pageSetup orientation="landscape" r:id="rId1"/></worksheet>')
ENDIF
↧