Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: как работать с openoffice на c# Добавлено: 31.01.12 16:42  

Автор вопроса:  Nikos
как работать с openoffice на c#

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #1 Добавлено: 04.02.12 00:14
http://stackoverflow.com/search?q=C%23+openoffice

Ответить

Номер ответа: 2
Автор ответа:
 SHDZ



ICQ: 209382104 

Вопросов: 39
Ответов: 244
 Профиль | | #2 Добавлено: 13.02.12 14:36
Пример печати
  1.  
  2. Dim oSM As Object
  3. Dim oDesk As Object
  4. Dim oDoc As Object
  5. Dim oSheet As Object
  6. Dim oCell As Object
  7. Dim oCells As Object
  8. Dim BL As Object
  9. Dim TB As Object
  10.  
  11. Set oSM = CreateObject("com.sun.star.ServiceManager")
  12. Set oDesk = oSM.CreateInstance("com.sun.star.frame.Desktop")
  13. Set oDoc = oDesk.loadComponentFromURL("private:factory/scalc", "_blank", 0, arg())
  14. Set oSheet = oDoc.getSheets().getByIndex(0)
  15. Set BL = oSM.Bridge_GetStruct("com.sun.star.table.BorderLine")
  16. Set TB = oSM.Bridge_GetStruct("com.sun.star.table.TableBorder")
  17.  
  18. Call oSheet.getCellByPosition(0, 1).setString(" ЧЕТА ПИШЕМ")
  19. oSheet.getCellByPosition(0, 1).CharWeight = 150
  20. oSheet.getCellByPosition(0, 1).charHeight = 16
  21.  
  22. ' Рисуем границы
  23. Set oCells = oSheet.getCellRangeByName("A6:G6")
  24.  
  25. BL.Color = 120
  26. BL.OuterLineWidth = 18
  27.  
  28. BL.Color = RGB(0, 0, 0)
  29. BL.InnerLineWidth = 18
  30. BL.OuterLineWidth = 18
  31. BL.LineDistance = 0
  32. TB.BottomLine = BL
  33. TB.LeftLine = BL
  34. TB.HorizontalLine = BL
  35. BL.OuterLineWidth = 88
  36. BL.InnerLineWidth = 0
  37.  
  38. TB.BottomLine = BL
  39. TB.TopLine = BL
  40. TB.RightLine = BL
  41.  
  42. TB.VerticalLine = BL
  43. TB.IsLeftLineValid = True
  44. TB.IsRightLineValid = True
  45. TB.IsTopLineValid = True
  46. TB.IsBottomLineValid = True
  47. TB.IsHorizontalLineValid = True
  48. TB.IsVerticalLineValid = True
  49. TB.IsDistanceValid = False
  50.  
  51. oCells.TableBorder = TB

Ответить

Номер ответа: 3
Автор ответа:
 SHDZ



ICQ: 209382104 

Вопросов: 39
Ответов: 244
 Профиль | | #3 Добавлено: 13.02.12 14:38
Сорри... не усмотрел что на шарпе.... ну принцип то-же....

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам