OpenOffice.info

Code: Alles auswählen

SUB Speichern
dim dummy()

odoc = thiscomponent
datumsortieren
spedsheet = oDoc.Sheets(0)
   mycell = spedsheet.getCellRangeByName("c1")
   myString= mycell.string
   mystring1 = (mystring+"_"+Datumsortiert) 	
   Dateiname = InputBox ("Geben Sie bitte den Dateinamen ein:",mystring, mystring1)
   Speicherort = InputBox ("Geben Sie bitte ein Verzeichnis ein:", "0", "file:///L:/tourenplanung/Ü-Schein/"+datumsortiert+"/")
   mydoc = ThisComponent
   myUrl=  Speicherort + Dateiname+".ods"
   If FileExists( MyURL ) Then
   Speichern1 = Inputbox("Überschreiben Ja/Nein","0")
   end if
   If Speichern1 = "ja" then
   mydoc.storeasurl(myurl, dummy)  
   msgbox "Ihre Datei wurde gespeichert"
   else 
   MSGbox "Datei nicht gespeichert"
   exit sub
   end if
End Sub


SUB Datumsortieren

DIM Jahr as String
DIM Monat as String
DIM Tag as String
DIM DADA1 as String 'Platzhalter monat separieren
select case weekday ( now() )
case 6
Aktdatum = left(now()+3, 10)
case else
aktdatum = Left(now()+1,10)
end select
morgen = aktdatum

TAG = left (Morgen, 2)
dada1 = left (Morgen, 5)
Monat = right(dada1, 2)
Jahr = right (Morgen, 4)
Datumsortiert = Jahr+"_"+MONAT+"_"+Tag

end sub

Code: Alles auswählen

sub Drucken
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Copies"
args1(0).Value = 1
args1(1).Name = "Selection"
args1(1).Value = true
args1(2).Name = "Collate"
args1(2).Value = false

dispatcher.executeDispatch(document, ".uno:Print", "", 0, args1())


end sub

Code: Alles auswählen

Dim saveOpt(0) As New com.sun.star.beans.PropertyValue
saveOpt(0).Name = "Overwrite"
saveOpt(0).Value = False

ThisComponent.storeAsURL( myURL, saveOpt() ) 

Code: Alles auswählen

SUB Speichern
dim dummy()

odoc = thiscomponent
datumsortieren
spedsheet = oDoc.Sheets(0)
   mycell = spedsheet.getCellRangeByName("c1")
   myString= mycell.string
   mystring1 = (mystring+"_"+Datumsortiert) 	
   Dateiname = InputBox ("Geben Sie bitte den Dateinamen ein:",mystring, mystring1)
   Speicherort = InputBox ("Geben Sie bitte ein Verzeichnis ein:", "0", "file:///L:/tourenplanung/Ü-Schein/"+datumsortiert+"/")
   mydoc = ThisComponent
   myUrl=  Speicherort + Dateiname+".ods"
   mydoc.storeasurl(myurl, dummy)  
   msgbox "Ihre Datei wurde gespeichert"
End Sub

Code: Alles auswählen

Dim DruckerOpt(0) as New com.sun.star.beans.PropertyValue
DruckerOpt(0).Name = "Name"
DruckerOpt(0).Value = "PDF-Konverter"
ThisComponent.setPrinter( DruckerOpt() )

Code: Alles auswählen

DruckerName = "Laserdrucker"
Dim DruckerOpt(0) as New com.sun.star.beans.PropertyValue
DruckerOpt(0).Name = "Name"
DruckerOpt(0).Value = DruckerName 
oDokument.setPrinter( DruckerOpt() ) 

Code: Alles auswählen

' undokum. Funktion
sPfadTrenner = _
 getPathSeparator()


' Basis
sBasisVerz = _
 "/zentrale/firma/2008/testdata/"

' Windows 
'"d:\daten\Rechnungen\"

' Wochentag bestimmen
' Freitags, Samstags, Sonntags: Montag berechnen
' sonst: nächsten Tag
Select Case WeekDay( Now() )
 ' Freitag
 Case 6
  ZielDatum = Now() + 3
 ' Samstag
 Case 7
  ZielDatum = Now() + 2
 ' sonst: Folgetag
 Case Else
  ZielDatum = Now() + 1
End Select


' Bestandteile des Zielverzeichnis
' als 2-stellige Zeichenketten, Jahr 4-st.
sTag = _
 Format( Day( ZielDatum ) , "00" ) 
sMonat = _
 Format( Month( ZielDatum ) , "00" ) 
sJahr = _
 Year( ZielDatum )
sJahr2 = _
 Right( sJahr, 2 ) 
 

' Bestandteile zusammensetzen
' Beispielformat: jjjj/mm-tt
sZielVerz = _
 sBasisVerz & _
 sJahr & _
 sPfadTrenner & _
 sMonat & _
 "-" & _
 sTag

Print sZielVerz

Code: Alles auswählen

Für alle CalcDateien im Verzeichnis

   öffne_CalcDatei ' lock, gg. Änderungen
   Für alle Blätter in CalcDatei
      Wenn F2 gefüllt
          drucke_Druckbereich()
      nächstes Blatt (bis Ende Blätter)
      speichere_CalcDatei
   nächste_CalcDatei (bis Ende CalcDateien)

Ende

Code: Alles auswählen

Dim FileProperties(0) As New com.sun.star.beans.PropertyValue

If FileExists( sURL ) Then
   FileProperties(0).Name = "Overwrite"
   FileProperties(0).Value = True
End If

ThisComponent.storeToURL( sURL, FileProperties()  )