新しいスタイルシステム上でIRangeインターフェースを使用して縦書きを行うと、印刷時に縦書きの2行目が右側に表示される – MESCIUS ナレッジベース

作成日: 2021/05/06 最終更新日: 2021/06/23

文書種別

不具合

状況

修正済み

詳細

新しいスタイルシステムを有効にしたシート上で、IRangeインターフェースのOrientationプロパティやWrapTextプロパティを使用して複数行の縦書きを行うと、印刷や印刷プレビュー画面において縦書きの2行目が右側に表示されます。縦書きの2行目は1行目に対して左側に表示されるのが本来の動作です。

回避方法

Service Pack 7（v12.0.4510.2012）で修正済み。

Service Pack 7を適用せずに対処する方法としては、標準型セルを使用して縦書きを行うことで回避可能です。

'FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 0).Orientation = GrapeCity.Spreadsheet.Alignment.VerticalText
'FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 0).WrapText = True

'回避策
Dim celltype = New FarPoint.Win.Spread.CellType.GeneralCellType()
celltype.TextOrientation = FarPoint.Win.TextOrientation.TextTopDownRTL
celltype.WordWrap = True
FpSpread1.ActiveSheet.Cells(0, 0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
FpSpread1.ActiveSheet.Cells(0, 0).CellType = celltype

FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 0).Text = "あいうえおかきくけこ"
FpSpread1.AsWorkbook().ActiveSheet.Rows(0).RowHeight = 100

FpSpread1.ActiveSheet.PrintInfo.Preview = True
FpSpread1.PrintSheet(0)