Set oSOffice = CreateObject("com.sun.star.ServiceManager")
   Set oDesk = oSOffice.createinstance("com.sun.star.frame.Desktop")

   Set oFile = oDesk.loadComponentFromURL("private:factory/scalc", "_blank",  0 , vArg())
   Set oSheets = oFile.getSheets()

   oSheets.InsertNewByName strMySheetName,  0 

   If oSheets.Count >  1  Then 
      Do While oSheets.Count >  1 
         Set oSheet = oSheets.getByIndex(oSheets.Count -  1 )
         oSheets.RemoveByName (oSheet.Name)
      Loop
   End If

   Set oSheet = oFile.getSheets().getByName(strNomeRelat)
   Set oControl = oFile.getCurrentController()
   oControl.setActiveSheet oSheet

   oSheet.SetPropertyValue "CharFontName", "Arial"
   oSheet.SetPropertyValue "CharHeight",  10 

   Set objCel = oSheet.getCellByPosition(MyCol,MyRow)

   Select Case TypeName(MyText)
   Case "String"
      If Left(MyText,  1 ) = "=" Then 
         objCel.setFormula MyText
      Else
         objCel.setString MyText
      End If
   Case "Double", "Integer", "Long"
      objCel.SetValue MyText
   End Select

   Set objCel = oSheet.getCellByPosition(MyCol,MyRow)
   oType = objCel.getType()
   Select Case oType
   Case  1 
      MyValue = objCel.getValue()
   Case  2 
      MyValue = objCel.getString()
   Case  3 
      MyValue = objCel.getFormula()
   End Select

   Set oRow = oSheet.GetRows().getByIndex(intRow)
      oRow.Width = varSize
или
      oRow.optimalHeight = True 'Autofit


   Set oCol = oSheet.getColumns().getByIndex(intCol)
      oCol.Width = varSize
или
      oCol.optimalWidth = True 'Autofit

   Set oRange = oSheet.getCellRangeByName(strRange)

   Dim oServiceManager As Object
   Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
   Dim oLocale As Object
   Set oLocale = oServiceManager.bridge_getstruct("com.sun.star.lang.Locale")
   Dim oFormats As Object
   Set oFormats = oFile.getNumberFormats()
   Dim lngFormatNum As Integer
   lngFormatNum = oFormats.queryKey(strNewFormat, oLocale, True) 
  If (lngFormatNum = - 1 ) Then 
    lngFormatNum = oFormats.AddNew(strNewFormat, oLocale)
    If (lngFormatNum = - 1 ) Then lngFormatNum =  0 
  End If
  
   oRange.NumberFormat = lngFormatNum

      objCel.SetPropertyValue "CharFontName", strFonte
      objCel.SetPropertyValue "CharHeight", intTamanho
 
      Select Case intAlignment
         Case  1 : objCel.SetPropertyValue "ParaAdjust",  0   'Left
         Case  2 : objCel.SetPropertyValue "ParaAdjust",  1   'Right
         Case  3 : objCel.SetPropertyValue "ParaAdjust",  2   'Justify Word Wrap
         Case  4 : objCel.SetPropertyValue "ParaAdjust",  3  'Center
      End Select

   objCel.SetPropertyValue "ShrinkToFit", True
   objCel.SetPropertyValue "IsTextWrapped", True

   Dim oRange As Object
   Set oRange = oSheet.getCellRangeByName(strRange)
   oRange.Merge (True)
   oRange.ParaAdjust = intParaAdjust

   Dim oRange As Object
   Set oRange = oSheet.getCellRangeByName(strRange)
   Dim oTableBorder As Object
   Set oTableBorder = oSheet.TableBorder
    
   Dim oTBorder As Object
   Set oTBorder = oTableBorder.TopLine
   oTBorder.Color = lngColor
   oTBorder.OuterLineWidth = intLineWidth
   oTableBorder.TopLine = oTBorder
    
   Dim oBBorder As Object
   Set oBBorder = oTableBorder.BottomLine
   oBBorder.Color = lngColor
   oBBorder.OuterLineWidth = intLineWidth
   oTableBorder.BottomLine = oBBorder
    
   Dim oLBorder As Object
   Set oLBorder = oTableBorder.LeftLine
   oLBorder.Color = lngColor
   oLBorder.OuterLineWidth = intLineWidth
   oTableBorder.LeftLine = oLBorder
    
   Dim oRBorder As Object
   Set oRBorder = oTableBorder.RightLine
   oRBorder.Color = lngColor
   oRBorder.OuterLineWidth = intLineWidth
   oTableBorder.RightLine = oRBorder
    
   oTableBorder.IsTopLineValid = True
   oTableBorder.IsBottomLineValid = True
   oTableBorder.IsLeftLineValid = True
   oTableBorder.IsRightLineValid = True
    
   oRange.SetPropertyValue "TableBorder", oTableBorder

   Dim oFamilies As Object   'Families Styles
   Dim oPageStyles As Object 'Page Styles
   Dim oPageStyle As Object  'Page Style in use
   Dim sNomesEstilos         'Style Names
   Dim oHeader As Object     'Header
   Dim oFooter As Object     'Footer
   Dim intCont As Integer    'Counter
    
   'Select Default Style
   Set oFamilies = oFile.getStyleFamilies()
   Set oPageStyles = oFamilies.getByName("PageStyles")
   If oPageStyles.hasByName("Default") = False Then 'There's no Default Style, so make it
      Set oPageStyle = oFile.createinstance("com.sun.star.style.PageStyle")
      oPageStyles.insertByName "Padrão", oPageStyle
   Else 'Default style exists, so select it to changes
      sNomesEstilos = oPageStyles.getElementNames()
      For intCont = LBound(sNomesEstilos) To UBound(sNomesEstilos)
         If sNomesEstilos(intCont) = "Default" Then
            Exit For
         End If
      Next intCont
      Set oPageStyle = oPageStyles.getByName(sNomesEstilos(intCont))
   End If
   oPageStyle.LeftMargin =  2000 
   oPageStyle.RightMargin =  500 
   oPageStyle.TopMargin =  1000 
   oPageStyle.BottomMargin =  1000 
    
   'Enable Header and Footer
   oPageStyle.HeaderIsOn = True
   oPageStyle.FooterIsOn = True
    
   'Header inicialization
   Set oHeader = oPageStyle.RightPageHeaderContent
    
   'Set Header botton border
   Dim oHBBorder As Object
   Set oHBBorder = oPageStyle.HeaderBottomBorder
   oHBBorder.Color = vbBlack
   oHBBorder.OuterLineWidth =  100 
   oPageStyle.HeaderBottomBorder = oHBBorder
    
   'Set Left Header
   oHeader.LeftText.String = "RC Software" 'Your program name
   oHeader.LeftText.Text.CharFontName = "Arial"
   oHeader.LeftText.Text.CharHeight =  8 
    
   'Set Center Header
   oHeader.CenterText.String = "Usuário: " & strLogin 'Logged user name
   oHeader.CenterText.Text.CharFontName = "Arial"
   oHeader.CenterText.Text.CharHeight =  8 
    
   'Set Right Header
   Dim oFieldPageNumber As Object 'Field Page Number
   Dim oFieldPageCount As Object  'Field Page Numbers
   Dim oHRText As Object          'Header Right Text to insert the field
   Dim oHRCursor As Object        'Header Right Cursor to insert the field
   Set oFieldPageNumber = oFile.createinstance("com.sun.star.text.TextField.PageNumber")
   Set oFieldPageCount = oFile.createinstance("com.sun.star.text.TextField.PageCount")
   Set oHRText = oHeader.RightText
   Set oHRCursor = oHRText.CreateTextCursor()
   oHeader.RightText.Text.CharFontName = "Arial"
   oHeader.RightText.Text.CharHeight =  8 
   oHRText.insertstring oHRCursor, "Fls.:", False
   oHRText.insertTextContent oHRCursor, oFieldPageNumber, False
   oHRText.insertstring oHRCursor, "/", False
   oHRText.insertTextContent oHRCursor, oFieldPageCount, False
      
   'Insert all Header informations into sheet
   oPageStyle.RightPageHeaderContent = oHeader

   'Footer initialization
   Set oFooter = oPageStyle.RightpageFooterContent
    
   'Set Top Footer border
   Dim oFTBorder As Object
   Set oFTBorder = oPageStyle.FooterTopBorder
   oFTBorder.Color = vbBlack
   oFTBorder.OuterLineWidth =  100 
   oPageStyle.FooterTopBorder = oFTBorder
    
   'Set Left Footer
   oFooter.LeftText.String = "Gerado em " & Format(Now, "dd/mm/yyyy - hh:mm:ss")
   oFooter.LeftText.Text.CharFontName = "Arial"
   oFooter.LeftText.Text.CharHeight =  8 
    
   'Set Center Footer
   oFooter.CenterText.String = "Rodapé Centro"
   oFooter.CenterText.Text.CharFontName = "Arial"
   oFooter.CenterText.Text.CharHeight =  8 
    
   'Set Right Footer
   Dim oFieldFileName As Object  'Field File Name
   Dim oFRText As Object         'Footer Right Text to insert a field
   Dim oFRCursor As Object       'Footer Right Cursor to insert a field
   Set oFRText = oFooter.RightText
   Set oFRCursor = oFRText.CreateTextCursor()
   Set oFieldFileName = oFile.createinstance("com.sun.star.text.TextField.FileName")
   oFieldFileName.SetPropertyValue "FileFormat",  0  'File name with path
   oFRText.insertstring oFRCursor, "Arq.:", False
   oFRText.insertTextContent oFRCursor, oFieldFileName, False
   oFooter.RightText.Text.CharFontName = "Arial"
   oFooter.RightText.Text.CharHeight =  8 
    
   'Insert all Footer informations into sheet
   oPageStyle.RightpageFooterContent = oFooter

   oPageStyle.isLandscape = False
   oControl.ShowGrid = False
   oFile.print(vArg)

Set Args( 0 ) = oServ.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
Args( 0 ).Name = "FilterName"
Args( 0 ).Value = "MS Excel 97"
 
Doc.StoreToURL "file:///C:/MyReport.xls", Args
Doc.Close (True)
Doc.Terminate()