Пример печати
-
- Dim oSM As Object
- Dim oDesk As Object
- Dim oDoc As Object
- Dim oSheet As Object
- Dim oCell As Object
- Dim oCells As Object
- Dim BL As Object
- Dim TB As Object
-
- Set oSM = CreateObject("com.sun.star.ServiceManager")
- Set oDesk = oSM.CreateInstance("com.sun.star.frame.Desktop")
- Set oDoc = oDesk.loadComponentFromURL("private:factory/scalc", "_blank", 0, arg())
- Set oSheet = oDoc.getSheets().getByIndex(0)
- Set BL = oSM.Bridge_GetStruct("com.sun.star.table.BorderLine")
- Set TB = oSM.Bridge_GetStruct("com.sun.star.table.TableBorder")
-
- Call oSheet.getCellByPosition(0, 1).setString(" ЧЕТА ПИШЕМ")
- oSheet.getCellByPosition(0, 1).CharWeight = 150
- oSheet.getCellByPosition(0, 1).charHeight = 16
-
- Set oCells = oSheet.getCellRangeByName("A6:G6")
-
- BL.Color = 120
- BL.OuterLineWidth = 18
-
- BL.Color = RGB(0, 0, 0)
- BL.InnerLineWidth = 18
- BL.OuterLineWidth = 18
- BL.LineDistance = 0
- TB.BottomLine = BL
- TB.LeftLine = BL
- TB.HorizontalLine = BL
- BL.OuterLineWidth = 88
- BL.InnerLineWidth = 0
-
- TB.BottomLine = BL
- TB.TopLine = BL
- TB.RightLine = BL
-
- TB.VerticalLine = BL
- TB.IsLeftLineValid = True
- TB.IsRightLineValid = True
- TB.IsTopLineValid = True
- TB.IsBottomLineValid = True
- TB.IsHorizontalLineValid = True
- TB.IsVerticalLineValid = True
- TB.IsDistanceValid = False
-
- oCells.TableBorder = TB
Ответить
|