1. I load RVF in SRVE (document has landscape orientation)
2. Click Print button (use TsrvActionPrint action)
3. In Print dialog click OK
4. Now document orientation is Portrait.
Not able to reproduce it in ActionTest but It happens in between 2. and 3. (I found it out with debugger) at the line
Code: Select all
FPageProperty.FOrientation := Orientation;
Code: Select all
SclRView.TSRichViewEdit.SetRVMargins(False)
SclRView.TSRichViewEdit.Reformat
SclRView.TSRVPageProperty.SetPageFormat(srvfmA4)
SRVActions.TsrvCustomActionThatNeedsDocProps.SetMultipageLayout($1300AB20)
SRVActions.TsrvActionPrint.Print($1300AB20)
Code: Select all
RVOptions := [rvoAllowSelection, rvoScrollToEnd, rvoAutoCopyText,
rvoAutoCopyRVF, rvoAutoCopyImage, rvoAutoCopyRTF, rvoFormatInvalidate,
rvoDblClickSelectsWord, rvoRClickDeselects];
RTFOptions := [rvrtfDuplicateUnicode, rvrtfSaveEMFAsWMF, rvrtfSaveJpegAsJpeg,
rvrtfSaveDocParameters];
RTFReadProperties.UnicodeMode := rvruMixed;
RTFReadProperties.TextStyleMode := rvrsAddIfNeeded;
RTFReadProperties.ParaStyleMode := rvrsAddIfNeeded;
RTFReadProperties.ReadDocParameters := True;
RVFOptions := [rvfoSavePicturesBody, rvfoSaveControlsBody,
rvfoIgnoreUnknownPicFmt, rvfoIgnoreUnknownCtrls,
rvfoConvUnknownStylesToZero, rvfoConvLargeImageIdxToZero, rvfoSaveBinary,
rvfoSaveBack, rvfoLoadBack, rvfoSaveTextStyles, rvfoSaveParaStyles,
rvfoSaveLayout, rvfoLoadLayout, rvfoSaveDocProperties,
rvfoLoadDocProperties];
RVE: v16.3.1 (2015-Nov-6)
RVA: v6.2.1
Any thoughts what reason may be?
Thanks!