LibreOffice-Forum

Code: Alles auswählen

' Neue Datei öffnen ###################################################
Sub Form_oeffnen
 Dim vDoc 'die geladene Komponente
 Dim Arg() 'ein leeres Array der Argumenteliste
 Dim sURL as String, Sframe As String, lSearch As Long
 sUrl = convertToURL("d:\Daten\Firma\rechnungen\vorlage\vorlage2017.ots")
 vDoc=StarDesktop.loadComponentFromURL (sURL, "_blank", 63, Arg())
end sub

Code: Alles auswählen

' Datei speichern unter M13 ###########################################
sub save2
  oDoc=thisComponent
  Sheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
  Cell = Sheet.getCellByPosition(12, 12)  '[Zelle A1]
  Filename = Cell.String
  dim args1(0) as new com.sun.star.beans.PropertyValue
  args1(0).Name = "FilterName"
  args1(0).Value = "calc8"

  arg = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
  dialog = CreateUnoService("com.sun.star.ui.dialogs.OfficeFilePicker")
  'Hinweis: der Dialog "com.sun.star.ui.dialogs.FilePicker" hat einen Bug bei .DisplayDirectory
  '         deshalb muss hier der OO-eigene Dialog .OfficeFilePicker genutzt werden
  dialog.Initialize(arg())
  dialog.appendFilter( "ODF Tabellendokument (*.ods)", "*.ods" )
  dialog.SetMultiselectionMode(False)
  dialog.DisplayDirectory = ConvertToURL("D:\Daten\Firma\rechnungen\2017\")
  dialog.DefaultName = Filename
  ok = dialog.execute()
  if ok = 1 Then   
   datei = dialog.getFiles()
   URL = datei(0)
    oDoc.storeasurl(URL, args1())
  end if

end sub

Code: Alles auswählen

' Datum per Strg+9 ####################################################
Sub AktuellesDatumEinfuegen
'   thisComponent.CurrentSelection().setString(date())   
   thisComponent.CurrentSelection().setValue(date())   
End Sub

Code: Alles auswählen

' Vorlage speichern ##################################################################
sub savevorlage
msg = msgbox("Vorlage überschreiben ?",4)         
if msg = 6 then
  oDoc=thisComponent
  Sheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
  Filename = "vorlage2016"
   mycell01 = Sheet.getCellRangeByName("$M$11")
   mycell01.string = ""
  Path = "file:///d:/daten/firma/rechnungen/vorlage/" '[Pfad anpassen bei Windows]
  dim args1(0) as new com.sun.star.beans.PropertyValue
  args1(0).Name = "FilterName"
  args1(0).Value = "StarOffice XML (Calc)"
 
  oDoc.storeasurl(Path &  Filename & ".ots",args1())
  end if
end sub

Code: Alles auswählen

' PDF Drucken ########################################################################
sub DruckerX
 dim document as object
 dim dispatcher as object
 document = ThisComponent.CurrentController.Frame
 dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 dim args1(0) as new com.sun.star.beans.PropertyValue
 args1(0).Name = "Printer"
 args1(0).Value = "FreePDF"
 dispatcher.executeDispatch(document, ".uno:Printer", "", 0, args1())
 dim args2(1) as new com.sun.star.beans.PropertyValue
 args2(0).Name = "Copies"
 args2(0).Value = 1
 args2(1).Name = "Collate"
 args2(1).Value = false
 dispatcher.executeDispatch(document, ".uno:Print", "", 0, args2())
end sub