//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet sheet = workbook.Worksheets[0]; sheet.Range["A1"].Font.Name = "@MS UI Gothic"; sheet.Range["A1"].Value = "日本語（にほんご、にっぽんご）は、主として、日本列島で使用されてきた言語である。GrapeCity"; sheet.Range["A1"].HorizontalAlignment = HorizontalAlignment.Right; sheet.Range["A1"].VerticalAlignment = VerticalAlignment.Top; sheet.Range["A1"].Orientation = -90; sheet.Range["A1"].WrapText = true; sheet.Range["A1"].ColumnWidth = 27; sheet.Range["A1"].RowHeight = 190; // Save to a pdf file workbook.Save("VerticalText.pdf");
' Create a new Workbook Dim workbook As New Workbook Dim sheet As IWorksheet = workbook.Worksheets(0) sheet.Range!A1.Font.Name = "@MS UI Gothic" sheet.Range!A1.Value = "日本語（にほんご、にっぽんご）は、主として、日本列島で使用されてきた言語である。GrapeCity" sheet.Range!A1.HorizontalAlignment = HorizontalAlignment.Right sheet.Range!A1.VerticalAlignment = VerticalAlignment.Top sheet.Range!A1.Orientation = -90 sheet.Range!A1.WrapText = True sheet.Range!A1.ColumnWidth = 27 sheet.Range!A1.RowHeight = 190 ' save to a pdf file workbook.Save("VerticalText.pdf")